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Vorwort 


Dieses Buch richtet sich an alle, die bereits gewisse Erfah- 
rungen mit ihrem ATARI und BASIC gesammelt haben und 
nun nach Informationen suchen, um selbstgeschriebene Pro- 
gramme noch effektiver und vielseitiger zu machen, ohne 
gleich eine neue Programmiersprache zu erlernen. 


Es war an vielen Stellen schwierig, die Grenze zu finden 
zwischen dem, was an Wissen vorausgesetzt werden soll und 
den Erläuterungen, denn je tiefer man in die Materie ein- 
dringt, um so mehr hängen die verschiedenen Kenntnisse 
zusammen. Man kann auch ein Stück Tuch nicht beschreiben, 
indem man einen Faden erklärt und doch muß man irgendwo 
anfangen. 


Wenn Sie irgendetwas nicht verstehen, dann sollten Sie un- 
bedingt die Beispielprogramme eingeben und die Erläuterun- 
gen zu den einzelnen Zeilen gründlich lesen. Manches Mal 
kann es auch hilfreich sein, einen Abschnitt zweimal zu 
lesen. Das eine oder andere sehen Sie vielleicht erst im 
richtigen Zusammenhang, wenn Sie das ganze Buch durch- 
gearbeitet haben. 


Besonders wenn im Kapitel Grafik die Display-Liste behan- 
delt wird, stößt dieses Buch an seine Grenzen. Nicht nur, 
daß hier die Schwelle zur Maschinensprache betreten wird, 
in diesen Aspekt spielt auch noch die gesamte Video- und 
Bildschirmtechnik hinein. 


Das Buch gliedert sich in zwei Teile. Zuerst werden die Be- 
arbeitung von Text, Sound und Grafik behandelt, dann die 
Peripherie-Geräte Drucker und Diskettenstation. Im Anhang 
finden Sie viele nützliche Tabellen für die Programmier- 
arbeit. 


I Text 


Böse Zungen behaupten, daß ATARI-Computer kaum Möglich- 
keiten für String-Manipulationen bieten und damit zur Text- 
Verarbeitung ungeeinget seien. 


Das Gegenteil ist der Fall. Als einzige Heim-Computer ihrer 
Preisklasse bieten die ATARI-Modelle einen internationalen 
Zeichensatz, der durch POKE 756,204 eingeschaltet werden 
kann. Mit der Taste CONTROL + der gewünschten Zeichentaste 
können Sie dann Ä,Ö,Ü, ä,e,ü usw. aufrufen. Mit POKE 756, 
224 kehren Sie zum normalen Zeichensatz zurück. 


In diesem Kapitel erfahren Sie, wie man mit dem ATARI-Com- 
puter die vielen verschiedenen String-Manipulationen durch- 
führt, die für die Text-Verarbeitung, aber auch zur Lösung 
anderer Programm-Aufgaben wichtig sind. 


Dazu zählen das Verketten von String-Variablen bzw. das 
Verketten von Teil-Strings, das Selektieren von einzelnen 
Buchstaben oder Wörtern aus Texten (z.B. zum Erstellen eines 
Stichwort-Verzeichnisses) und die künstliche STRING$-Funktion, 
mit der man durch nur eine Eingabe einen String erzeugen 
kann, der aus n-mal dem eingegebenen Zeichen besteht. 


Besonders unterhaltsam ist ein Abschnitt über das Generieren 
von Zufallsbuchstaben und Zufallswörtern. Diese Prinzipien 
können Sie z.B. in fortgeschrittenen Spielen einsetzen, bei 
denen der Spieler einen '"Geheim-Code'"' knacken muß, um an 
Informationen heranzukommen, um Zutritt zu einem Geheimraum 
zu bekommen usw. 


Neben diesen Tips und Tricks im Umgangmit String-Variablen 
finden Sie in diesem Kapitel noch Erläuterungen zu speziel- 
len String-Funktionen wie ASC, STR$ und VAL, die zur Be- 
wältigung fortgeschrittener Programm-Aufgaben eingesetzt 
werden können. 


Zum Abschluß bieten wir Ihnen noch eine 3-Zeilen-Utility, mit 
der Sie bequem die Variablen-Namen aus Ihren BASIC-Pro- 
grammen verändern können, ohne das ganze Listing durch- 
stöbern zu müssen. Durch eine einzige Anweisung wird ein 
geänderter Variablen-Name automatisch an alle Stellen Ihres 
BASIC-Programms eingefügt, an denen er verarbeitet werden 
soll. 


1.1 String-Manipulationen 


Mit normalen String-Variablen haben Sie sicher schon gear- 
beitet (z.B. DIM A$(4):A$="TEXT":PRINT A$). In diesem Ab- 
schnitt lesen Sie, wie man Strings verkettet, eine künstliche 
STRING$-Funktion erzeugt (also die beliebige Wiederholung 
eines Zeichen durch nur eine Angabe) und wie man Zufalls- 
wörter generiert. Außerdem wird auf die BASIC-Funktionen 
VAL, STR$ und ASC eingegangen. 


1.1.1 Strings verketten und selektieren 


Wenn Sie schon einmal eine String-Variable definiert haben, 
die über drei Bildschirm-Zeilen hinausgehen sollte, werden 
Sie sechs Zeichen vor Ende der dritten Zeile einen Kontrollton 
gehört haben. Das bedeutet gewissermaßen "Bis hierher und 
nicht weiter". Selbst wenn Sie den Text länger schreiben, 
werden beim PRINTen nur die Zeichen bis zum Punkt des 
Kontrolltons ausgegeben. 


Falls Sie also längere Strings haben wollen, müssen Sie sie 
miteinander verketten. Dazu folgendes Beispiel: 


18 DIM A$C3B88),B$C188),C$C1088) 

28 A$="Dies ist ein Test, mit dem festgestellt wird, 
wieviele Strings man miteinander verbinden kann. " 
38 B$="Dies ist ein Test, mit dem festgestellt wird, 
wieviele Strings man miteinander verbinden kann. * 
38 C$="Dies ist ein Test, mit dem festgestellt wird, 
wieviele Strings man miteinander verbinden kann. "” 
se ? A$:? 

568 A$SCLENCASI+HI)=B$ 

re ? A$:? 

8B ASCLENCAFI+LI=CH 

98 ? A$:7? 


LEN (A$) berechnet die Anzahl der Zeichen von A$. Mit +1 
wird erreicht, daß B$ auf der ersten Position hinter A$ be- 
ginnt. Wenn Sie z.B. +0 angeben, wird das letzte Zeichen 
von A$ gelöscht und vom ersten Zeichen des B$ besetzt. Nach 
RUN sehen Sie, wie die Strings nacheinander verkettet wurden 
und nun fast den gesamten Bildschirm ausfüllen. 


Neben dem einfachen Verketten von Strings ist es auch mög- 
lich, nur String-Teile zu verbinden. Dazu müssen Sie genau 
angeben, welche Zeichen der einzelnen String-Variablen ver- 
kettet werden sollen; z.B. A$(1,3) bedeutet "vom ersten bis 
dritten Zeichen". Versuchen Sie folgendes Beispiel: 


18 DIM A$(C308),B$(17) 

28 A$="Dies ist der Original Text” 
38 B$="umgestaltete Text” 

40 ? A$:? 

58 A$CLENCA$SC1,133)+1)=B$ 

50 ? AS 


Hier wird nicht die Gesamtlänge von A$ mit B$ verkettet, son- 
dern nur das erste bis dreizehnte Zeichen von A$. Nach RUN 
sehen Sie folgendes auf dem Bildschirm: 


Dies ist der Original Text 
Dies ist der umgestaltete Text 


Wenn Sie Strings verketten, müssen Sie darauf achten, daß 
Sie für den Haupt-String genügend Zeichen reservieren. Beim 
obenstehenden Beispiel wurden für A$ 30 Zeichen DIMensio- 
niert, obwohl A$ selbst nur 26 Zeichen beansprucht. Durch 
die Verkettung mit B$ nimmt jedoch die Anzahl der Zeichen 
zu. Folgende Skizze verdeutlicht dies: 


As . =l|Dies ist der Original Text 
| Zeichen: 123456789... u. 26 


_ B$___ ____=|umgestaltete Text 
| Zeichen: [|123456789... ...17 


ASC1,13)+B$ =|Dies ist der umgestaltete Text 
Zeichen: 123456789... ...30 


Falls Sie nicht zwei Strings verketten, sondern aus einem 
String bestimmte Teile herausfiltern wollen, so gibt es selbst- 
verständlich auch hierfür eine Lösung. Versuchen Sie folgendes 
Programm: 


18 DIM A$C26) 

28 A$="Dies ist der Driginal Text” 
38 7? A$:? 

38 ASCLENCA$C1,13))I)+1)=-A$C23,26) 
se ? A$ 


Nach RUN sehen Sie auf dem Bildschirm: 


Dies ist der Original Text 
Dies ist der Text 














Hier wurden also nicht zwei String-Variablen miteinander 
verbunden, sondern zwei Teile eines einzelnen Strings zusam- 
mengefügt und das Wort "Original" herausgefiltert. Es ist 
nun auch möglich, solche herausgefilterten Teilstrings mit 


anderen Teilstrings zu verketten. Im folgenden Beispiel werden 
verschiedene Manipulationen mit Strings, Teilstrings und 
herausgefilterten Teilstrings durchgeführt. Sie können nach 
diesem Muster eigene Text-Spielchen nach Lust und Laune 
programmieren. 


18 DIM A$(53),B$C(23),C$(28) 
28 A$="Dies ist der Original Text” 
38 B$="neue, umgestaltete Text” 


38 C$=", herausgefilterte Textsalat” 
58 ? A$:? 

68 A$S(CLENCASCI1,13))I+1)=B$ 

re ? A$:? 

88 ASCLENCASCIL,13I)+1)=A$(C208,36) 

98 7? A$:? 

188 ASCLENCASCI,2ZO)I+1)=C$ 

118 ? A$:7? 

128 ASCLENCASCI,9II+1)=A$C45,53) 

138 ? A$ 


Als Ergebnis sehen Sie folgendes auf dem Bildschirm: 


Dies ist der Original Text 

Dies ist der neue, umgestaltete Text 

Dies ist der umgestaltete Text 

Dies ist der umgestaltete, herausgefilterte Textsalat 
Dies ist Textsalat 


Nach diesen etwas banalen Vorstudien folgt nun der "Ernst 
des Programmierens". Es gibt nämlich auch einen sehr nütz- 
lichen Einsatz des Verkettens, Vergleichens oder Ausfilterns 
von Strings und Teilstrings. Zum Beispiel können Sie aus 
einer wahllos zusammengestellten Wörtermenge alle Wörter 
heraussuchen lassen, die mit einem bestimmten Buchstaben 
beginnen. Dazu das folgende Selektier-Programm: 


18 DIM A$C1),B$(208),C$(1) 

15 ? CHR$(C125) 

28 ? "Geben Sie einen Suchbuchstaben ein”; 
38 INPUT A$ 

48 ? :? "Folgendes ist unter diesem Buchstaben” 
Se ? "in der Datei gespeichert: ”:? 

68 READ B$:IF B$="ENDE” THEN GOTO 98 

ra IF B$s(C1,1)>=A$ THEN ? B$:C$=A$ 

88 GOTO 68 

98 IF C$<>A$ THEN ? "NICHTS”* 

188 RESTORE 

118 ? :? :? "Noch einmal (J/NI? ":INPUT A$ 
128 IF A$<>"J” THEN END 


12 


138 GOTO 15 


1888 
1818 
1828 
1830 
1838 
1858 
1868 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Afghanistan,Belgien,Albanien 
Chile,Indonesien, Jamaika 
Korea,Libyen,USA,Deutschland 
Frankreich,Schweiz,Zypern 
Griechenland, Tunesien, Taiwan 
China,Ungarn,Mexiko,Panama 
ENDE 


15: CHR$(125) 


60: Nachdem Sie Ihre Eingabe gemacht haben (Zeile 30), liest 
der Rechner die einzelnen Wörter der DATA-Zeilen. Wenn das 
gelesene Wort = ENDE ist, soll das Programm in Zeile 90 fort- 
gesetzt werden. 


70: Wenn das erste Zeichen des aktuell eingelesenen Wortes 
mit dem eingegebenen Suchbuchstaben übereinstimmt, soll das 
Wort auf dem Bildschirm ausgePRINTet werden. In diesem Fall 
nimmt C$ das Zeichen A$ an (vergl. Zeile 90). 


80: Solange das Wort ENDE nicht erreicht 
Rechner zur Zeile 60 zurück und 
den DATA-Zeilen. 


90: Wenn keines der Wörter aus den DATA-Zeilen mit dem 
eingegebenen Suchbuchstaben beginnt, bleibt die Bedingung 
aus Zeile 70 unerfüllt. Dadurch hat auchC$ nicht das Zeichen 
von A$ angenommen. In diesem Fall wird das Wort "NICHTS" 
auf dem Bildschirm ausgegeben. 


löscht den Bildschirm. 


ist, springt der 
liest das nächste Wort aus 


110 bis 130: Der Rechner fragt, ob das Programm noch einmal 
starten soll. 


Wenn Sie selbst eine ähnliche Datei in DATA-Zeilen ablegen 
wollen, müssen Sie darauf achten, daß zwischen den einzelnen 
Wörtern kein Leerzeichen steht. Beim READ-Befehl wird das 
Leerzeichen als erstes Zeichen von B$ erkannt, so daß das 
Programm nicht richtig arbeitet. 


Eine weitere nützliche Anwendung der oben gezeigten String- 
Manipulation zeigt das folgende Programm. Hier können aus 
beliebigen Texten bestimmte Wörter selektiert werden. Dies 
ist z.B. notwendig, wenn ein Stichwortverzeichnis für ein 
Buch, eine Diplomarbeit etc. angefertigt werden muß. 


Die nachfolgend aufgeführten DATA-Zeilen sind natürlich nur 
als Prinzip gedacht; "Seite 1", "Seite 2" usw. sollen für tat- 
sächliche Textseiten stehen. 


Sie müssen das zu selektierende Wort selbstverständlich in 
der gleichen Weise eingeben, wie es in den Texten vorkommt 
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(also in Groß- und Kleinbuchstaben). Geben Sie z.B. nach 
RUN (RETURN) das Wort "Computer" ein. Der Rechner PRINTet 
dann "Seite 1", "Seite 3", "Seite 5". Auch nach allen anderen 
Wörtern können Sie suchen lassen (das Programm macht näm- 


lich Spaß). 


18 DIM A$(20),B$c10808),C$(C208) 

28 ? CHR$(C125) 

38 ? "Welches Wort soll selektiert werden” 

48 INPUT A$ 

50 ? :? "Das eingegebene Wort kommt auf folgen-den 5e 
iten vor:”:? 

68 TRAP 188:READ B$:IF B$="ENDE” THEN 118 

7a FOR X=1 TO LEN(CB$) 

808 IF B$SCX,X+LENCA$S)I-1)=A$ THEN ? B$C1,7):C$=A$ 

98 NEXT X 

188 GOTO 68 

118 IF C$<>A$ THEN ? "Auf: keiner Seite?!” 

128 RESTORE 

138 ? :? :? "Noch einmal (J/ND *”;:1INPUT A$ 

1480 IF A$<>"J” THEN END 

158 GOTO 28 

1888 DATA Seite 1: In diesem Text kommt das Wort Comp 
uter vor 

1818 DATA Seite 2: Dies ist ein Probetext 

1828 DATA Seite 3: Ein Computer ist ein elektronische 
r Rechner 

1838 DATA Seite 4: Anstelle dieser Zeile steht eine B 
uchseite 

18438 DATA Seite 5: Auch in diesem Text steht das Wort 
Computer 

1858 DATA ENDE 


70: Da jeder String, der auf das eingegebene Wort hin unter- 
sucht werden soll, eine unterschiedliche Anzahl von Zeichen 
hat (vergl. DATA-Zeilen), durchläuft die FOR-NEXT-Schleife 
jeweils die Anzahl der Zeichen des aktuellen Strings; also 
FOR X=1 TO LEN(B$). 


80: Bei jedem Durchlauf der FOR-NEXT-Schleife erhöht sich 
X um 1; d.h. der gesamte String wird Zeichen für Zeichen 
nach dem eingegebenen Wort abgesucht; nämlich von X bis 
X + der Länge von A$. Die Angabe -1 ist notwendig, da X 
bereits das erste Zeichen von A$ ist. Wenn bei dieser Suche 
der Teilstring von B$ mit dem eingegebenen Suchwort (A$) 
übereinstimmt, soll der Rechner vom aktuellen B$ die Zeichen 
1 bis 7 PRINTen; das entspricht jeweils dem Wort "Seite" und 
der Seitenzahl. Auch hier soll, wie im vorhergehenden Pro- 
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gramm bereits beschrieben) C$ die Zeichen von A$ annehmen 
(vergl. Zeile 110). 


110: Wenn das gesuchte Wort in keinem String enthalten ist, 
PRINTet der Rechner "Auf keiner Seite". 


1000 bis 1050: Wie Sie sehen, müssen DATA-Zeilen nicht immer 
aus einem einzelnen Zeichen, Wort oder Wert bestehen. Bei 
String-DATAs werden Zwischenräume als Leerzeichen interpre- 
tiert und ohne Probleme verarbeitet. 


1.1.2 Suchwort-Verzeichnis 


Wenn Sie Ihre "richtigen" Texte auf Diskette abspeichern und 
anschließend feststellen wollen, auf welchen Seiten sich be- 
stimmte Wörter befinden, müssen Sie diese Aufgabe etwas 
anders lösen als in dem oben gezeigten Beispiel. Mit dem 
folgenden Programm können Sie beliebige Texte auf Diskette 
schreiben und prüfen, auf welchen Seiten sich gesuchte Wörter 
befinden. 


Das Programm ist so angelegt, daß jede einzelne Textseite 
mit einem eigenen Dateinamen (SEITEI, SEITE2, SEITE3 usw.) 
abgespeichert wird. Zum Erstellen dieser Textfiles müssen 
Sie nur RUN (RETURN) und die Seite eingeben, die geschrie- 
ben werden soll. Danach erscheint auf dem Bildschirm ein 
Fragezeichen. Zum Textschreiben tippen Sie am Anfang und 
Ende jeder Zeile einen An- bzw. Ausführungsstrich ("). Der 
Computer übernimmt eine automatische Zeilen-Nummerierung 
und setzt in jede Zeile die Anweisung LPRINT. Sie können, 
falls Sie nicht mit einem Drucker arbeiten, auch nur eine 
PRINT-Anweisung geben (s. Zeile 390). 


Zum Abbruch des Programms drücken Sie die HELP-Taste. Das 
Textfile wird dann automatisch in den Rechner geladen. Das 
eigentliche Text- und Selektier-Programm wird dabei nicht 
gelöscht. 


Falls sich bei den Eingaben Programmier-Fehler eingeschlichen 
haben sollten, so werden diese jetzt automatisch auf dem 
Bildschirm ausgegeben. Sie müssen sie korrigieren und das 
Textfile noch einmal unter seinem Namen auf Diskette LISTen 
(jedoch nur von Zeile 1000 bis Ende, damit das Text- und 
Selektier-Programm nicht mitgeLISTet wird). 


Danach können Sie mit dem Selektieren beginnen. Tippen Sie 
dazu GOTO 20 (RETURN). Der Rechner gibt Ihnen dann alle 
Seiten-Angaben, in denen das gesuchte Wort auftritt. Zum 
Schreiben einer neuen Seite geben Sie wieder RUN ein. 


18 
28 
30 
30 
>8 
68 
r® 
88 


G 
C 
2 
N 
? 
? 
I 


> 
‘ 


OTO 288 
LR :DIM A$(28),B$(C1508),N#(C1”7) 
=D 
$="D:SEITE” 

CHR$(125) 

"Welches Wort soll selektiert werden” 
NPUT A$ 

:? Das eingegebene Wort kommt auf folgen-den Se 


iten vor:":? 
98 Z=2Z+t1:N$CLENCNESCL,TII+HLI=SSTRECZ) 


1808 
1108 
128 
138 
148 
158 
168 
178 
188 
198 
208 
218 
228 
238 
240 
258 
268 
270 
288 
298 
3808 
318 
328 
338 
348 
358 
368 
3r® 
388 
398 
4808 
418 
4208 
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CLOSE #1 

TRAP 288 

OPEN #1,4,08,N$ 

POKE 195,8 

TRAP 288 

INPUT #1;B$ 

FOR X=1 TO LENCB$) 

IF BSCX,X+LENCASI-1II=A$ THEN ? N$(C3) 
NEXT X 

GOTO 158 

IF PEEK(195)=136 THEN GOTO 98 

IF PEEK(195)=17B8 THEN GOTO 248 
GOTO 148 

GOTO 98 

? :? Noch einmal (CJ/ND ”; 

INPUT A$ 

IF A$<>"J” THEN END 

GOTO 28 

DIM T$(255),N$cC17) 

POKE 732,8 

ZN=998 

N$="D:” 

? "Programm-Name ” 

INPUT T$ 

N$SCLENCN$EI+HI)=T$ 

CLOSE #1 

OPEN #1,8,8,N$ 

ZN=ZN+1® 

INPUT T$ 

PRINT #1;ZN;” LPRINT ";,T$;CHR$(155) 
IF ZN=1588 THEN CLOSE #1:ENTER N$ 
IF PEEK(732)=17 THEN CLOSE #1:ENTER N$ 
GOTO 378 


90: Z ist zunächst einenumerische Variable, die anschließend 
bei der Verkettung durch STR$ in eine String-Variable umge- 
wandelt wird (vergl. Abschnitt 1.3 "Spezielle String-Funktio- 
nen"). Mit der Umwandlung wird erreicht, daß beim ersten 
Programm-Durchlauf der Dateiname SEITEI, beim zweiten 
Durchlauf SEITE2 usw. heißt. Auf diese Weise werden alle 
Textfiles, die mit SEITE beginnen, in die spätere Selektierung 
mit einbezogen. 


100: OPEN, CLOSE, INPUT und andere Befehle, die den Daten- 
austausch zwischem Computer und Disketten-Station regulie- 
ren, werden ausführlich im Kapitel 5 "Disketten-Operationen" 
erklärt. 


130 und 140: In Register 195 wird die Code-Zahl abgelegt, die 
beim Auftritt eines Fehlers auf dem Bildschirm ausgegeben 
wird (z.B. ERROR 9 - AT LINE...). Da dieses Register im 
Laufe dieses Programms abgefragt wird und der letzte ERROR 
bis zum nächsten in diesem Register gespeichert bleibt, muß 
es durch POKE 195,0 gelöscht werden. TRAP 200 bestimmt, daß 
der Rechner beim Auftritt eines ERRORs zur Zeile 200 springen 
soll. In diesem Programm ist man also nicht den möglichen 
Fehlern ausgeliefert; vielmehr werden sie für die Ausführung 
bestimmter Operationen genutzt. 


150: Jede von Ihnen geschriebene Textzeile wird auf Diskette 
gespeichert. 


160: Da jede Textzeile unterschiedlich lang ist, durchläuft 
die FOR-NEXT-Schleife die Anzahl der Zeichen des aktuellen 
B$. 


170: Dies ist gewissermaßen das Kernstück des Programms: Mit 
der FOR-NEXT-Schleife wird der gesamte String Zeichen für 
Zeichen abgetastet und vom aktuellen Zeichen X bis X + der 
Länge des gesuchten Wortes mit A$ verglichen. Falls diese 
Zeichen übereinstimmen (das gesuchte Wort also auf dieser 
Seite zu finden ist), soll der Rechner den Dateinamen vom 
dritten Zeichen ab PRINTen. Dieser beginnt in jedem Fall 
mit SEITE. Die beiden ersten Zeichen des Dateinamen (D:) 
werden hier nicht benötigt. 


200: Der ERROR 136 tritt immer auf, wenn der gesamte Text- 
file abgefragt wurde und kein INPUT mehr möglich ist. In 
diesem Fall soll der Rechner zur Zeile 90 springen und das 
nächste Textfile laden. 


210: ERROR 170 tritt auf, wenn alle Files mit dem Namen 
SEITEn geladen wurden; d.h. die Selektierung beendet ist. In 
diesem Fall soll das Programm nicht einfach abgebrochen 
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werden. Vielmehr springt der Rechner zur Zeile 240, um das 
Suchen nach weiteren Wörtern zu ermöglichen. 


290 bis 420: Hier befindet sich das Text-Eingabe-Programm. 
Alle Prinzipien dieses Programms, das auch eine automatische 
Zeilen-Nummerierung beinhaltet, finden Sie im Kapitel 4 '"Dis- 
ketten-Operationen" ausführlich beschrieben. 


Das vorliegende Programm ist darauf eingerichtet, Files mit 
dem Namen SEITEn zu bearbeiten. Selbstverständlich ist es 
auch möglich, jeden anderen Programm-Namen oder File-Gruppen 
auf diese Weise für Wortselektierungen in den Rechner zu 
laden. 


Nachfolgend finden Sie ein Beispiel, wie das gleiche Programm 
alle Files "abklappert", die den Namen BIRn.TXT tragen. Dabei 
befanden sich auf unserer Diskette Files von BIRI.TXT bis 
BIR20.TXT (der Text zu diesem Kapitel). Von dem vorherge- 
henden Programm müssen nur folgende Zeilen geändert wer- 
den: 


28 CLR :DIM A$C28),B$C150),N$C17),NN$(C5) 

38 Z=8:NN$=".TXT” 

38 N$="D:BIR” 

38 Z=Z2Z+t1:N$SCLENCN$SC1,TIIHLII=SSTRECZIVNSCLENCNEI+HLI=NNSE 


Mit NN$ wird eine weitere Variable DIMensioniert, die den 
Extender der File-Namen ",.TXT" enthält. 


9: Zur bereits bekannten Verkettung von Programm-Namen 
und Umwandlung von numerischen Variablen (Z) zum String 
wird der hier entstandene String noch zusätzlich mit dem 
Extender verkettet, so daß beim Programm-DurchlaufBIR1.TXT, 
BIR2.TXT usw. entsteht. Mit diesen Anregungen wird es Ihnen 
sicher gelingen, Ihre eigenen Programm-Namen in dieser Weise 
bearbeiten zu lassen und das Wort-Selektier-Programm nutz- 
bringend einzusetzen. 
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1.2 Künstliche STRING$-Funktion 


Mit der STRING$-Funktion kann man einer String-Variable das 
gleiche Zeichen zuweisen, ohne das Zeichen selbst z.B. 20 
mal tippen zu müssen. 


ATARI verfügt nicht über einen STRING$-Befehl. Mit einem 
kleinen Trick kann man jedoch diese Funktion künstlich er- 
zeugen. Hier das Prinzip: 


18 DIN A$C10) 

28 As=rx” 

30 ASCLO)=AS:A$C2)=A$ 
408 ? A$ 


Nach RUN (RETURN) sehen Sie: 
KXXXXXXXKXK 


Nachdem in Zeile 20 A$ als "X" definiert ist, wird in Zeile 
30 bestimmt, daß das letzte Zeichen mit dem ersten identisch 
sein soll. Danach wird festgelegt, daß das zweite Zeichen 
ebenfalls mit dem ersten identisch sein soll. Beim PRINTen 
weist der Rechner dann automatisch A$(3) das Zeichen von 
A$(2), A$(4) das Zeichen von A$(3) zu usw. 


Das klingt zunächst etwas umständlich; solange die STRING$- 
Funktion in einem Programm nur einmal angewendet werden 
soll, ist die oben gezeigte Programmierung tatsächlich auf- 
wendiger als das Zeichen selbst zu schreiben. Wenn jedoch 
ein STRING$ immer wieder verwendet wird (z.B. als Rahmen 
in Menü-Überschriften), kann man nach dem oben gezeigten 
Prinzip Zeit und vor allem Speicherplatz sparen. Versuchen 
Sie folgendes Programm: 


18 DIM A$(C38) 

28 AS=NKT:ABCIBEITAS: AFCZI-AF 

2308 7? A$ 

Se?” ANWENDUNGS-BEISPIEL”" 
Ba ? .:?7 A$ 


Auf dem Bildschirm sehen Sie nach RUN (RETURN): 
EEE ETETETEEEETESTERETELERT 
ANWENDUNGS-BEISPIEL 


ERSTER TFTSTTTTES TS STELLTE ER ESS TEE ET 


Nach. diesem Muster können Sie jedes beliebige Zeichen als 
STRING$ definieren und in Ihren Programmen nach Lust und 
Laune einsetzen. 


1.3 Spezielle String-Funktionen 


Außer den verschiedenen Manipulationen mit String-Variablen, 
die bisher gezeigt wurden, bietet ATARI noch einige andere 
Funktionen, die bestimmte Programm-Aufgaben erleichtern 
können. 


Hierzu zählen die Anweisungen ASC, STR$ und VAL. ASC gibt 
den ASCII-Wert für das erste Zeichen eines Strings; z.B.: 


18 DIM A$(20),B$(208),C$(208) 
28 A$="Erster Text” 

38 B$="Zuveiter Text” 

38 C$="Dritter Text" 

S5sB X=ASCCAS) 

568 Y=ASC(CB$) 

r8 2Z=ASCCC$) 

80 7 X,Y,Z 


Als Ergebnis sehen Sie: 

69 98 68 

Mit der STR$-Anweisung (nicht zu verwechseln mit STRING$) 
können . Sie einen numerischen Wert in einen String umwan- 


deln. Im Wort-Selektier-Programm Seite (Zeile 90) wurde 
dies bereits angewendet. Hier noch ein einfacheres Beispiel: 


18 DIM A$(5),B$(5),C$(5),D$(5) 
20 X=65:Y=8000:2=2x15 

3A A$=STRECK) 

39 B$=STR$(CY) 

SB C$=STR$(2) 

58 D$=STR$(C12345) 

78 ? A$,B$,C$,D$ 


Mit VAL erreichen Sie das genau Gegenteil von STR$. Durch 
diese Anweisung wird ein String in einen numerischen Wert 
umgewandelt. Versuchen Sie folgendes Programm: 


18 DIM A$(5),B$(4) 
28 A$="12345” 

39 B$="8090” 

48 X=VAL(AS$) 

58 Y=VAL(BS$) 

69 Z=UALC”"987") 

ra ? X,Y,2 


Nach RUN (RETURN) sehen Sie folgendes Ergebnis auf dem 
Bildschirm: 


12545 8888 987 
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Im folgenden Beispiel wird der numerische Wert, der sich 
aus ASC(A$) ergibt, durch STR$ in einen String umgewandelt 
und B$ zugewiesen. In Zeile 40 wird der ASCII-Wert des achten 
Zeichens von A$ zum String umdefiniert und C$ zugewiesen. 


In den Zeilen 60 und 70 wird STR$ durch CHR$ ersetzt, so 
daß B$ und C$ nicht als Werte, sondern als Buchstaben er- 
scheinen. 


Umwandlungen dieser Art sind in allen Sortier-Programmen 
nützlich (z.B. wenn man bei einer Adressen-Verwaltung Orte 
nach Postleitzahlen selektieren will). 


18 DIM A$SC11>,B$C2),C$(3) 
28 A$="Erster Text” 

380 B$=STR$CASCCASI) 

308 C$=STRECASCCASCEI)) 

s8 ? A$S,B$,C$ 

68 B$=CHRE$ECASCCASI) 

r8 C$=CHRS$SCASCCAFCE))I) 

88 7? A$,B$,C$ 


Nach RUN (RETURN) sehen Sie folgendes Ergebnis auf dem 
Bildschirm: 


Erster Text 59 82 
Erster Text E T 
1.4 Zufallsbuchstaben - Zufallswörter 


Eine weitere Aufgabe im Umgang mit Strings ist das Erzeugen 
von Zufallsbuchstaben oder -wörtern. Dies kann z.B. in Spielen 
nützlich sein, wenn ein Geheimwort o.ä. eingegeben werden 
muß, damit sich dem Spieler eine Tür öffnet usw. Es wäre 
ja sinnlos, solch ein Wort vorher zu definieren, da man dann 
die Lösung bereits kennt. 


Die einfachste Form, einen Zufallsbuchstaben zu erzeugen, 
zeigt folgendes Listing: 

18 X=INTCZEXARNDCB)Y) +65 

28 ? CHR$CK) 


Zunächst wird für die 26 möglichen Buchstaben des Alphabets 
eine Zufallszahl erzeugt. Da das Alphabet im ASCII-Code mit 
65 (für A) beginnt, muß der Zufallszahl noch 65 hinzugerech- 
net werden. 


Falls aus dem Zufallsbuchstabe ein Zufallswort werden soll, 
muß das Programm folgendermaßen ergänzt werden: 
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> FOR Y=1 TO S 

18 X=1INTCZ6+XRND(B))+65 
28 ? CHRS$CK); 

38 NEXT Y 


Damit haben Sie nun zwar ein Zufallswort; jedoch ist dieses 
Wort als String-Variable nirgends registriert und damit in 
einem weiteren Programm-Ablauf verloren. Wenn Sie also mit 
einem zufällig generierten Wort mehrmals operieren wollen, 
müssen Sie es in einem String speichern. Im folgenden Bei- 
spiel wird diese Aufgabe gelöst: 


18 DIM A$(5) 

28 FOR X=1 TO 5 

38 A$CX,XD=CHR$CINTCEZGEARNDCOII+ES) 
38 NEXT X 

58 7? A$ 


Mit jedem Durchlauf der FOR-NEXT-Schleife erhöht sich der 
Wert von X um 1. Dadurch wird A$ nacheinander mit fünf 
Zufallsbuchstaben "aufgefüllt". Die Funktionen aus den Zeilen 
10 und 20 der beiden zuvor gezeigten Programme sind hier 
in Zeile 30 zusammengefaßt. 


Zum Abschluß dieses Abschnitts noch ein kleines Wortspiel, 
bei dem das oben gezeigte Prinzip angewendet wird. 


18 DIM A$(C3),B$(3) 

28 FOR X=1 TO 3 

38 A$SCX,X)=CHR$ECINTC2XKRNDCBO))I+ES) 

48 NEXT X 

SB ? CHR$(125) 

68 ? "Geben Sie den Geheim-Code ein” 

8 ? ”(CDrei Buchstaben A oder B)"” 

88 ? :INPUT B$ 

98 IF B$=A$ THEN ? "Zutritt gestattet!” 
188 IF B$<>A$ THEN ? "Zutritt verweigert!” 
118 ? :?7 :? "Noch einmal (START oder N)?” 
128 IF PEEK(53279)=6 THEN GOTO 28 

138 IF PEEK(764)=35 THEN END 

148 GOTO 128 


In Zeile 30 generiert der Rechner in zufälliger Reihenfolge 
drei Buchstaben, die entweder "A" oder "B" lauten. Ihre 
Aufgabe ist es, diesen Geheim-Code durch eine Eingabe zu 
knacken. Gelingt es, wird Ihnen "Zutritt gestattet". Im an- 
deren Fall haben Sie verloren. Zeile 120 fragt die START- 
Taste ab (Register 53279); in Zeile 130 wird das Register 
für den Tastatur-Code (35 = Buchstabe N) abgefragt. 
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1.5 Die Variablen-Tabelle 


Ihr ATARI legt bereits während des Programmierens intern 
eine Tabelle an, die alle von Ihnen definierten Variablen- 
Namen enthält. Die Anfangs-Adresse dieser Tabelle ist flexibel 
und hängt von der Länge Ihres Programms ab. 


Zur Ermittlung dieser Anfangs-Adresse werden die Speicher- 
stellen 130 und 131 benutzt. In diesen beiden Registern sind 
LO-Byte- und HI-Byte-Werte für die Anfangs-Adresse der Va- 
riablen-Tabelle enthalten. Fachmännischer ausgedrückt: Diese 
beiden Speicherstellen dienen als "Zeiger" auf die Variablen- 
Tabelle. 


Durch PEEKen der Dezimalwerte aus den einzelnen Tabellen- 
Adressen können Sie sich die Variablen-Namen "ansehen". Das 
allein ist freilich langweilig. Interessant wird es, wenn Sie 
in Ihrem Programm einen Variablen-Namen ändern wollen, ohne 
dafür das ganze Listing zu durchstöbern. Es genügt, die 
gewünschte Änderung durch einen einzigen POKE vorzunehmen. 
Im BASIC-Programm wird dann der geänderte Name automatisch 
an allen Stellen eingefügt, an denen der ursprüngliche Name 
stand. 


Mit der folgenden 3-Zeilen-Utility (32740 bis 32742) können 
Sie sich die Variablen-Namen des kurzen Demonstrations-Pro- 
gramms (5 bis 35) ansehen und nach Belieben verändern. 


> REM DEMO-PROGRAMNM 

18 DIM A$(5),B$(5) 

28 A$="AAAAA”:BS$S="BBBBB” 
38 C=123:D=456 


35 REM 

32748 CLR :X=PEEKC138) +PEEK(131)%*256 

32741 Y=PEEK(CX):? ”"POKE ";X;”,";,Y,:IF Y>128 THEN Y=Y- 
128 


32742 7? CHR$S(Y):X=X+1:1F Y<>B8 THEN GOTO 32741 
Nach RUN (RETURN) sehen Sie: 


POKE 7676,65 
POKE 7677,164 
POKE 7678,66 
POKE 7679,164 
POKE 7688,195 
POKE 7681,196 
POKE 7682,216 
POKE 7683,217 
POKE 7684,08 

POKE 7685,08 


SO NB WU HD 
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32740: Durch die Formel LO+HI*256 erhalten Sie die Anfangs- 
Adresse der Variablen-Tabelle. In diesem Fall ist das die 
Adresse 7676. In ihr ist der ASCII-Wert 65 entsprechend dem 
A von A$. 


32741: Die Bequemlichkeit dieses kleinen Programms besteht 
darin, daß auf dem Bildschirm das Wort POKE, die ermittelte 
Adresse mit dem darin befindlichen Dezimalwert und das ent- 
sprechende CHR$-Zeichen erscheint, das den Namen oder die 
Art der Variable (z.B. String-Variable) kennzeichnet. Falls 
Sie nun einen Variablen-Namen ändern wollen, fahren Sie 
einfach mit dem Cursor in die betreffende Zeile, ändern den 
Dezimalwert nach Ihren Wünschen, löschen das CHR$-Zeichen 
und drücken RETURN. Der Variablen-Name ist damit geändert, 
wie Sie nach LIST (RETURN) feststellen werden. DieBedingung 
IF Y>128 THEN Y=Y-128 hat folgende Bedeutung: Bei numeri- 
schen Variablen wird der erste Buchstabe invertiert und die 
folgenden in normalen Zeichen ausgegeben (sofern der Vari- 
ablen-Name länger als ein Buchstabe ist). Bei String-Variablen 
wird der String-Name mit normalen Zeichen ausgegeben, das 
Zeichen $ hingegen invertiert. Damit Sie ein klares Bild der 
Variablen-Tabelle erhalten, werden durch die Anweisung -128 
alle invertierten Zeichen in normale umgewandelt. 


32742: Nachdem die Anfangs-Adresse der Variablen-Tabelle 
festliegt, wird sie durch X=X+1 fortlaufend erhöht, damit die 
gesamte Tabelle auf dem Bildschirm erscheint. Solange der 
in Zeile 32741 ermittelte Dezimalwert nicht Null ist (Ende der 
Tabelle), kehrt der Rechner zu dieser Zeile zurück und setzt 
seine Arbeit fort. Im anderen Fall ist das Programm beendet. 


Falls Sie dieses Programm bereits abgetippt und ausprobiert 
haben, ist Ihnen sicher gleich ein Problem aufgefallen: Die 
im Demo-Programm aufgeführten Variablen-Namen bestehen alle 
aus nur einem Buchstaben. Diesen zu ändern ist einfach. Was 
aber tun, wenn man einen ursprünglich langen Namen ab- 
kürzen will? - Selbstverständlich gibt es auch hierfür eine 
Lösung: Bei String-Variablen müssen Sie in alle überflüssigen 
Register eine 0 POKEn; bei numerischen Variablen eine 128 
(wenn Sie auch bei überflüssigen Zeichen von numerischen 
Variablen eine OD in die betreffenden Register POKEn, bekom- 
men Sie ein heilloses Durcheinander). 


Das folgende Listing dient als Demonstrations-Beispiel zur 
Anderung von Variablen-Namen, die aus ursprünglich zwei 
Zeichen bestanden. 
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5 REM DEMO-PROGRAMNM 

18 DIM AA$(S),B$(5) 

28 AA$="AAAAA”:BS$S="BBBBB” 
38 CC=123:D=456 


35 REM 

32748 CLR :X=PEEKC138)+PEEKC131)%*256 

32741 Y=PEEKCX):? "POKE ";,X;,”,”";Y,:IF Y>128 THEN Y=Y- 
128 


32742 ? CHR$SCY)I:X=-X+1:GOTO 32741 
Nach RUN (RETURN) erscheint auf dem Bildschirm: 


POKE 7676,65 
POKE 7677,65 
POKE 7678,164 
POKE 7679,66 
POKE 7688,164 
POKE 7681,67 
POKE 7682,195 
POKE 7683,196 
POKE 7684,216 
POKE 7685,217 
POKE 7686,80 
POKE 7687,08 


<xX ON $WVW 4 DD 


Sie müssen das Programm mit BREAK abbrechen, da in diesem 
Fall über das Ende der Variablen-Tabelle hinaus Register 
aufgelistet werden. 


Wie Sie sehen, existieren in der Tabelle zwei Variablen mit 
je zwei Buchstaben (AA$ und CC). Fahren Sie nun mit dem 
Cursor hoch und ändern Sie: 


FÜEE 7677,08 CRETURND 
PÜKE 7682,128 CRETURN?D 


Die Buchstaben, die sich in den jeweiligen Zeilen befinden, 
müssen Sie löschen. Wenn Sie nun ein LIST eingeben, sehen 
Sie, daß die geänderten Variablen-Namen in das Programm 
aufgenommen wurden. 


Zur praktischen Anwendung dieser kurzen Utility ist es rat- 
sam, die Zeilen 32740 bis 32742 erst zu ENTERn, wenn sich 
das zu bearbeitende Programm bereits im Speicher befindet. 
Wie Sie oben nach RUN gesehen haben, werden auch die Va- 
riablen-Namen des Utility-Programms mit ausgedruckt. Es ist 
daher übersichtlicher, wenn diese Namen am Schluß der Ta- 
belle stehen. 


Weiter ist zu beachten, daß in der Tabelle auch Variablen- 
Namen gespeichert bleiben, die aus alten Programmen stam- 
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men bzw. die Sie während des Programmierens einmal benutzt 
und später wieder gelöscht haben. Um unnötiges Durcheinander 
zu vermeiden, geben Sie einfach NEW (RETURN) ein, bevor 
Sie das zu bearbeitende Programm laden. Durch NEW wird 
die Variablen-Tabelle gelöscht. 


Falls Sie sich durch die teilweise invertierte Zeichendarstel- 
lung nicht irritieren lassen, können Sie das Programm sogar in 
nur zwei Zeilen unterbringen. Das Listing sieht dann folgen- 
dermaßen aus: 


32738 CLR :X=PEEK(13B8)I+PEEKC131)%x256 
3zr741 Y=PEEKCXK)2:7 ”POKE ”;X;”,”;Y,CHR$SCY):X=X+1: IF Y< 
>8 THEN GOTO 32741 


1.6 Und noch ein Trick 


Im Abschnitt 1.1.1 wurde das Verketten von Strings behan- 
delt. Die prinzipielle Anweisung hierzu lautet: 


AFULENCAS)I+L)=BE 


Diese Methode muß eingesetzt werden, wenn die Zeichenlänge 
von A$ nicht bekannt ist. Falls Sie jedoch wissen, aus wie- 
vielen Zeichen die String-Variable besteht, an die Sie einen 
anderen String anhängen wollen, können Sie sich das Ver- 
ketten nach folgendem Prinzip erleichtern: 


18 DIM A$c10),B$(5) 

zB A$="TEXT1”:B$="TEXT2” 
38 7” A$,B$ 

48 ASC6)I=B$ 

s8 ? A$ 


Nach RUN (RETURN) sehen Sie: 


TEXTI TEXTZ 
TEXTITEXTZ 


A$ und B$ bestehen hier aus jeweils fünf Zeichen. Durch die 
Verkettung wird A$ zehn Zeichen lang und muß entsprechend 
DiMensioniert werden. In Zeile 40 wird dann bestimmt, daß 
das sechste Zeichen von A$ = B$ sein soll. Hierdurch kommt 
die Verkettung zustande, ohne daß die Länge von A$ mit LEN 
ermittelt werden muß. 
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1.7 Scrolling 


Über das Register 622 können Sie bei Ihrem ATARI-Computer 
(nur die neuen Modelle) ohne große Mühe ein Fein-Scrolling 
erreichen; d.h. der Bildschirm-Inhalt rollt nicht Printzeile 
für Printzeile (Grob-Scrolling) vorüber, sondern Bildschirm- 
zeile für Bildschirmzeile. 


Dieser Effekt ist sehr angenehm. Sie können z.B. eine Spiel- 
anleitung auf diese Weise über den Bildschirm rollen lassen 
oder auch Programm-Menüs. Folgende Skizze verdeutlicht das 
Prinzip des Fein-Scrolling. 





Um ein Fein-Scrolling zu programmieren, müssen Sie in Re- 
gister 622 eine 255 ablegen und einen Datenkanal zum Bild- 
schirm-Editor eröffnen. Das folgende Muster-Programm können 
Sie in Ihre eigenen Listings übernehmen, wobei das Betätigen 
der HELP-Taste zum Unterbrechen des Programms natürlich 
fortfallen kann. 


18 POKE 622,255 

28 POKE 732,0 

38 OPEN #1,12,8,”E:” 

308 ? "Dies ist ein Text, der demonstriert,” 
se ? "wie Fein-Scrolling aussehen kann.” 
68 ? "Druecken Sie HELP, um das Programm” 
re ? "abzubrechen.” 

88 7 

98 IF PEEK(732)<>17 THEN GOTO 48 

188 POKE 622,08 

118 CLOSE #1 
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2 Sound 


Mit vier unabhängigen Tongeneratoren (Audiofrequenz-Registern) 
und einem Tonumfang von 3 1/2 Oktaven (BASIC) bzw. 8 Ok- 
taven (Direktzugriff) bieten die ATARI-Computer Töne in Hülle 
und Fülle. 


Hinzu kommen sechs verschiedene Verzerrungs-Grade, die im 
SOUND-Statement angewählt werden können. Insgesamt lassen 
sich damit rund 1,2 Millionen verschiedene Effekte wie Ex- 
plosionen, Schnarren, Fauchen, Brummen usw. erzeugen. 


In diesem Kapitel gehen wir nicht auf alle diese verschiede- 
nen Sound-Möglichkeiten ein; das würde den Rahmen dieses 
Buches sprengen. Vielmehr zeigen wir Ihnen einige nützliche 
Programmier-Tricks für bestimmte Sounds, wie sie z.B. in 
Spielen vorkommen. Außerdem finden Sie Hinweise zur Program- 
mierung von Rhythmus-Effekten durch Verwendung der internen 
ATARI!-Timer. 


Aus verschiedenen Noten-Tabellen können Sie ersehen, wie 
man Musikstücke übertragen oder die Tasten des ATATI mit 
Orgel-Tönen belegen kann. Wer sich darüber hinaus intensiv 
mit der Programmierung von Sound-Effekten und Musik be- 
schäftigen möchte, dem sei das "ATARI Sound- und Musik-Buch" 
(Birkhäuser Verlag) empfohlen, das sich auf 130 Seiten aus- 
führlich diesem Thema widmet. Sie finden darin sowohl eine 
leicht verständliche Einführung in die Sound- die Musik-Pro- 
grammierung als auch raffinierte Programmier-Tricks für 
Fortgeschrittene. Außerdem bietet das Buch erstmals vollstän- 
dige Tabellen aller Sound-Effekte in den verschiedenen Ver- 
zerrungs-Graden. 


Sound-Effekte gehören heute zum guten Ton eines jeden Pro- 
grammierers. Und dies nicht nur in Computer-Spielen. Auch 
Änwender-Programme und Utilities erlangen erst durch eine 
sachgerechte Vertonung ihre Professionalität (z.B. Signal- 
Sound statt ERROR-Meldung bei Fehlbedienung). In diesem 
Kapitel finden Sie einige Anregungen hierzu. 
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2.1 Musik und Verzerrung 


Falls Sie schon einmal einfache Töne spielen oder Musiknoten 
übertragen wollten und dazu die Notenwerte aus der Bedie- 
nungsanleitung des ATARI zu Rate zogen, werden Sie festge- 
stellt haben, daß die einzelnen Töne miteinander unsauber 
klangen. Der Grund dafür ist ganz einfach: Die Tabelle stimmt 
nicht. 


Bei ATARI werden keine Original-Frequenzwerte, sondern in 
BASIC-Werte umgerechnete Frequenzen eingegeben. Die Formel 
dazu lautet: BASIC-Wert = 31960 : (Originalfrequenz + 1). 


Das mittlere C z.B. schwingt mit einer Original-Frequenz von 
261,62 Hz (Hertz). Demnach errechnet sich der BASIC-Wert 
hierfür: 31960 : (261,62 + 1) = 121,69 (aufgerundet 122). Im 
Anleitungsbuch steht jedoch für das mittlere C der Wert 126. 


Auch andere Tonwerte sind falsch angegeben. Die folgende 
Abbildung zeigt Ihnen eine harmonisch aufeinander abgestimmte 
Frequenz-Tabelle. 


229 20 172 153 137 115 102 66 77 


8 Sl 3 3 29 % 


[EM 


242 216 193 182 162 145 191218 9 A 1 25 1 EM HM KR 3 27 2 





Natürlich könnte man noch weitere Töne anhängen (Werte bis 
Null). Aber ab dem BASIC-Frequenzwert 30 klingen die Noten 
wie der Mitternachtsgesang einer Grille mit Grippe. 


Außer reinen Tönen lassen sich beim ATARI noch sechs ver- 
schiedene Verzerrungen einstellen, die ganz unterschiedliche 
Effekte bringen und besonders für die Spiele-Programmierung 
interessant sind. 


Bei der Programmierung von Sound-Effekten kann es hin und 
wieder vorkommen, daß gar nichts ertönt. Das hängt mit der 
Funktionsweise der Audiofrequenz-Register zusammen und hat 
nichts damit zu tun, daß Sie falsch programmiert haben. 
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Wählen Sie in solchen Fällen einfach eine andere Frequenz 
(z.B. 246 statt 247). Meistens wird dadurch das Problem be- 
reits gelöst. 


Die folgende Tabelle zeigt die Sound-Charaktere der einzelnen 
Verzerrungs-Grade. 





Verzerrung 0 unrhythmisches, knurrendes Rauschen 
Anwendung: Explosion, Schuß, Rauschgeräusche 






Verzerrung 2 verzerrtes, aber rhythnisch-periodisches Rauschen 
Anwendung: Begleitsound für Action, Bewegung 






Verzerrung 4 verzerrtes, knatterndes Schlagen 
Anwendung: Motor, utopische Flug- und Fahrgeräusche 







Verzerrung 6 rhythmisches Surren 
Anwendung: Maschinengeräusche, Roboterschritte, Rennwagen 






Verzerrung 8 unrhythmisches, fauchendes Rauschen 
Anwendung: Explosion, Schuß, Drachen, Fauchgeräusche 










Verzerrung 12 | vor verzerrten Brummen bis zum melodischen Summen 
Anwendung: vielseitig; für Action, Flipper, Elektronik-Geräusche 


Die Angaben 10 und 14 bringen unverzerrte Töne 


Hier einige Anwendungs-Beispiele für Sound-Effekte wie sie in 
vielen Spielen oder anderen Programmen eingesetzt werden. 





8 REM FALLENDES OBJEKT 
18 FOR FREQ=15 TO 255 
28 SOUND 8,FREQ,10,15 
38 NEXT FREQ 


8 REM PUNKTGEWINN 

18 FOR FREQ=255 TO 15 STEP -2 
28 SOUND 8,FREQ,18,15 

38 NEXT FREQ 


B REM GEFAHR/ALARM 

5 FOR X=8 TO 3 

18 FOR FREQ=208 TO 15 STEP -2 
28 SOUND 8,FREQ,18,15 

38 NEXT FREQ 

48 NEXT X 
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8 REM ELEKTRONIK-SOUND 

5 FOR X=8 TO 18 

18 FOR FREQ=288 TO 15 STEP -28 
28 SOUND 8,FREQ,18,15 

38 NEXT FREQ 

38 NEXT X 


8 REM LASER-WAFFEN 

> FOR X=8 TO 10 

18 FOR FREQ=15 TO 288 STEP 18 
28 SOUND B8,FREQ,18,15 

38 NEXT FREQ 

48 NEXT X 


@ REM AUFDRINGLICHES OBJEKT 
> FOR X=B TO 18 

18 FOR FREQ=288 TO 255 

28 SOUND 8,FREQ,18,15 

38 NEXT FREQ 

28 NEXT X 


8 REM SCHUSS 

1 REM AUSLOESEN MIT ’RETURN’ 
Z REM UNTERBRECHEN MIT ’RREAR’ 
1e DIM A$C1) 

28 LAUT=15 

38 PRINT "SCHUSS ”; 

308 INPUT A$ 

>58 FÜR F=8 TO 29 STEP 8.5 

68 SOUND 8,F,8,LAUT 

ra LAUT=LAUT-8.2 

858 NEXT F 

98 SOUND 08,9,0,8 

188 GOTO 20 


8 REM TYPISCHER VIDEOSPIEL-SOUND 
ı REM PUNKTVERLUST/FEHLSCHLAG 

2 REM NIEDERLAGE/REGELWIDRIGKEIT 
18 FÜR FREa=5 TO 143 

za SOUND 8,FREQ,2,8 

38 FOR ZEIT=8 TO 58 

38 NEXT ZEIT 

58 NEXT FREQ 


8 REM SCHUSS 

18 FOR F=8 TO 59 
28 SOUND 8,F,8,108 
38 NEXT F 


8 REM FAUCHEN 

18 FOR LAUT=-18 TO 15 

28 SOUND 8,139,8,15-ABSCLAUT) 
38 SOUND 1,128,8,15-ABS(CLAUT) 
38 SOUND 2,135,8,15-ABSCLAUT) 
>58 FOR ZEIT=8 TO 5:NEXT ZEIT 
568 NEXT LAUT 


8 REM FLIPPER-SOUND 

18 LAUT=15 

28 FOR FREq4=B TO 5® 

38 SOUND 8,FREQ,12,LAUT 

438 FOR ZEIT=8 TO 28:NEXT ZEIT 
58 LAUT=LAUT-B8.25 

68 NEXT FRE@ 


2.1.1 Timer 


Die ATARI-Computer verfügen über mehrere sog. Timer, die 
als Taktgeber programmiert und eingesetzt werden können. Das 
ist besonders für Sound- und Rhythmus-Effekte interessant, da 
sich die Tongeneratoren relativ unabhängig vom sonstigen 
Programmablauf einschalten bzw. ausschalten lassen. 


Jedes der fünf verfügbaren Timer-Register (es gibt darüber 
hinaus noch Timer mit anderer Funktionsweise, die hier nicht 
interessant sind) ist in LO-Byte-Timer und HI-Byte-Timer 
unterteilt. Sie zählen grundsätzlich von einem eingegebenen 
Wert bis 0; d.h. wenn im HI-Byte-Timer eine 5 steht, taktet 
das LO-Byte fünfmal von 255 bis 0, wobei sich mit jedem 
Zyklus das HI-Byte um 1 reduziert. Sie können sich diese 
Funktionsweise mit folgendem Programm veranschaulichen: 


18 PÜKE 537,5 

2u ? PEER{S536),PEEK(537) 

38 GOTO 28 

Damit kennen Sie auch schon die Adressen des ersten Timers. 
Folgende Tabelle zeigt die Adressen aller fünf Timer. 
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Es ist übrigens nicht unbedingt notwendig, immer LO-Byte 
und HI-Byte zusammen einzusetzen. Wenn Sie z.B. in Ihrem 
BASIC-Programm irgendeine Aufgabe schnell takten wollen, be- 
nutzen Sie am besten nur den LO-Byte-Timer; soll hingegen 
ein relativ langsamer Takt wirksam werden, ist der HI-Byte- 
Timer geeinget. 


545 





Versuchen Sie folgendes Demonstrations-Programm, in dem nur 
das LO-Byte programmiert wird: 


18 PÜKE 536,255 

28 A=-PEEK(536) 

38 IF A=255 THEN ? "Register 536 = 255":SOUND 8,122,1 
0,8 

38 IF A=2088 THEN ? "Register 536 
8 

> 

se IF A=158 THEN 7? "Register 536 
„8 

68 IF A=188 THEN ? "Register 536 = 188”:SOUND 8,68,18 
= 

8a IF A=58 THEN ? "Register 536 = 598”:50UND 8,61,108,8 
88 IF A=8 THEN ? "Register 5356 = 8”:SOUND 8,8,8,8:END 
98 GOTO ZB 


288”:SOUND 8,97,10 


158”":5OUND 8,81,10 


Der Einsatz des HI-Byte (also ein langsamer Takt) ist z.B. 
nützlich, wenn in einem Spiel eine Aufgabe in einem bestimmten 
Zeitraum bewältigt werden soll. Sobald die Zeit abgelaufen 
ist (das Timer-Register auf O0 steht), kann eine Melodie für 
Sieg oder Niederlage ertönen; es können Punkte hinzugerech- 
net oder abgezogen werden usw. 


Ein schneller Takt (das LO-Byte benötigt etwa 2 1/2 Sekunden 
von 255 bis 0) ist nützlich für Sound-Effekte oder Actionab- 
läufe in Spielen, die sich auf diese Weise takten lassen. Die 
Einsatzmöglichkeiten der Timer sind praktisch unbegrenzt und 
hängen ganz von den Aufgaben in Ihren Programmen ab. Bei 
den nachfolgenden Anwendungs-Beispielen wird im ersten Pro- 
gramm ein schneller Musik-Rhythmus erzeugt und im zweiten 
Programm eine akustische Zeitmessung durchgeführt. 
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8 REM RKHYTHMUS.8B81 


18 
208 
39 
308 
58 
58 
(4 
88 
98 


A=536 

POKE A,255 

B=PEEKCA) 

IF B>=245 THEN SOUND 8,208,12,10:GOTO 38 
SOUND 8,18,8,18:FOR Z=8 TO 25:NEXT 2 
SOUND 8,8,8,8:FOR 2=8 TO 25:NEXT Z 

SOUND 8,18,8,18:FOR Z2=8 TO 25:NEXT Z 
SOUND 8,8,8,8:FÜOR Z=8 TO 25:NEXT 2 

GOTO 28 


8 REM TIMER.OG1 


18 


98 


A=536 

POKE A,2S55 

B=PEEK(CA) 

IF B>=188 THEN SOUND 8,10,18,18 
IF B<188 THEN GOTO 1088 

FOR Z=8 TO 58:NEXT 2 

SOUND 8,80,08,8 

FOR 2=8 TO 58:NEXT 2 

GOTO 3® 


188 SOUND 8,18,10,18 
118 FOR Z=8 TO 588:NEXT 2 
128 SOUND 8,8,8,08 
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2.2 Das Audiokontroll-Register 53768 (AUDCTL) 


Neben den einfachen Klang-Möglichkeiten und Geräusch-Effekten, 
die durch das SOUND-Statement programmiert werden, verfügen 
die ATARI-Computer über ein weiteres Klang-Spektrum, das 
allerdings nur durch spezielle POKE-Anweisungen zur Verfügung 
steht. Diese neuen Sounds werden für alle vier Tongeneratoren 
über das Register 53768 (AUDCTL) gesteuert. 


Die folgende Tabelle zeigt, mit welchen Funktionen die ein- 
zelnen Bits dieses Registers belegt sind. 


AUDCTL 53768 


.n 
"2° 
+8 
oe x“ 
m [3 
n © 
m [3 
E _ % 
= [3 
o x% 
o 
oo 
N = 
e. > 
oo 
>> u? e) 
+» 
® «mi 
m EM 
18) 
CL u =) 
m u °} 
N 
ee = 
sg :00 
a 23 
a3 cc 
N << 


1,79 MHz Eingabetakt auf 
AUDFO (normal 64 KHz) 
1,79 MHz Eingabetakt auf 
AUDF2 (normal 64 KHz) 
16-Bit Frequenz-Auswahl 
auf AUDF1 und AUDFO 
16-Bit Frequenz-Auswahl 
auf AUDF3 und AUDF2 
Hochpaßfilter auf AUDFO, 
gesteuert von AUDFI 
Hochpaßfilter auf AUDF3, 
gesteuert von AUDF2 

15 KHz Eingabetakt (normal 





2.2.1 Neues Frequenz-Spektrum (AUDCTL, Bit 0) 


Jeder Computer arbeitet mit einem bestimmten Systemtakt, durch 
den die vielen einzelnen Arbeitsleistungen intern synchroni- 
siert werden. Beim ATARI ist dies 1,79 MHz. Außer diesem 
Haupttaktgeber gibt es noch mehrere Nebentaktgeber für spe- 
zielle Funktionen. Auch die Tongeneratoren werden durch einen 
Nebentaktgeber gesteuert; und zwar normalerweise mit 64 KHz. 


Wenn Sie in einer SOUND-Anweisung z.B. die Frequenz 4 auf- 
rufen, wird aus dem 64 KHz-Takt jeder vierte Puls herausge- 
filtert und zur Ausgabe gebracht. Auf diese Weise können 
die verschiedenen Notenwerte erzeugt werden. Sobald jedoch 
Bit O0 im AUDCTL gesetzt wird, reduziert sich der 64 KHz-Takt 
auf 15 KHz. Wenn Sie nun die Frequenz 4 aufrufen, wird 
ebenfalls jeder vierte Puls herausgefiltert; allerdings bringt 
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15.000 : 4einen wesentlich tieferen Klang als 64.000 : 4. Ver- 
suchen Sie dazu bitte folgendes Programm-Beispiel: 


18 ? CHR$(125) 

28 SOUND 8,438,18,10 

38 7?” ?"Tonanweisung mit 63 KHz getaktet”:? 

38 FOR 2=8 TO 588:NEXT 2 

>8 POKE 53768,1 

Bd ? "Die gleiche Tonanweisung mit 15 KHz getaktet” 


. > 
. + 


re FOR Z=8 TO SB8:NEXT 2 
10: Löscht den Bildschirm. 


20: Der BASIC-Frequenzwert 40 wird unverzerrt in Lautstärke 
10 aufgerufen. 


40: Eine Verzögerungs-Schleife 


50: Der Eingabetakt für die Audiofrequenz-Register wird von 
64 KHz auf 15 KHz abgesenkt. 


Die Anweisung im AUDCTL gilt für alle Tongeneratoren. Sie 
können das neue Klang-Spektrum z.B. für Sound-Effekte ein- 
setzen, die sich mit 64 KHz-getakteten Tongeneratoren nicht 
erzeugen lassen. 


2.2.2 Hochpaßfilter (AUDCTL, Bit 1, Bit 2) 


Mit einem Hochpaßfilter lassen sich aus einer Eingabefrequenz 
die hochtonigen Schwingungen herausfiltern, während die 
tiefen Töne unterdrückt werden. 


Auch beim ATARI-Computer können Sie einen Hochpaßfilter 
programmieren. Die Effekte, die dadurch entstehen, lassen 
sich besonders gut in Spielen einsetzen. Sie zeichnen sich in 
der Regel durch einen schrillen, schnarrenden Klang aus, was 
z.B. als Action-Untermalung interessant ist. 


Durch Setzen von Bit 1I im AUDCTL erreichen Sie, daß der 
Tonkanal 1 nur Töne passieren läßt, die über den Frequenz- 
werten aus Tonkanal 3 liegen. Das Setzen von Bit 2 hingegen 
läßt auf Tonkanal O0 nur Töne passieren, die über den Fre- 
quenzwerten aus Tonkanal 2 liegen. 


Leider ist es nicht möglich, einen Hochpaßfilter zusammen 
mit normalen SOUND-Anweisungen zu programmieren. Siemüssen 
vielmehr die einzelnen Audiofrequenz-Register und die dazu- 
gehörigen Kontroll-Register (für Lautstärke und Verzerrung) 
direkt ansprechen. 
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Die folgende Tabelle zeigt die Bit-Belegung und Funktionen 
der Audiofrequenz- und Audiosteuer-Register. 


Audiofrequenz-Register 
AUDFO 53760 (entspricht SOUND 0,x,.,.) 
) 


U 
AUDF1 53762 (entspricht SOUND 1,x%,.;- 
AUDF2 53764 (entspricht SOUND 2,x,.,.) 
AUDF3 53766 (entspricht SOUND 3,x,.,+) 


Dezimalwerte O0 bis 255 (BASIC-Frequenz-Wahl) 


Audiosteuer-Register 


Lautstärke 


Direkte Steuerung der 
Lautsprecher-Menbran 





Soll z.B. ein Hochpaßfilter über AUDFI für die Töne aus AUDF3 
aktiviert werden, müssen Sie folgendes Programm schreiben: 


18 SOUND 8,8,2,8:REM Null-Tonanweisung 

28 POKE 53768,2:REM Hochpassfilter auf AUDFI 
38 POKE 53762,188:REM AUDFI 

48 POKE 53763,437:REM AUDCI 

Sß POKE 53766,288:REM AUDF3 

688 FOR Z=8 TO 1988:NEXT Z 


Exakt das Gleiche können Sie auch erreichen, wenn Sie Bit 2 
im AUDCTL setzen und einen Hochpaßfilter auf AUDFO für die 
Töne aus AUDF2 erhalten wollen. In diesem Fall müssen Sie 
das Listing folgendermaßen ändern: 


18 SOUND 8,8,8,8:REM Null-Tonanweisung 
208 FOKE 53768,4:REM Hochpassfilter auf AUDF% 
36 POKE 53768,1®88:REM AUDF® 
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48 POKE 53761,47:REM AUDCB 
58 POKE 53764,288:REM AUDF2 
68 FOR Z=8 TO 18B8:NEXT 2 


Sie können mit diesen Beispielen stundenlang experimentieren: 
Ändern Sie die Frequenz-Angaben in den verschiedensten Kom- 
binationen und setzen Sie andere Verzerrungsgrade ein (s. 
Tabelle). Natürlich ist es auch möglich, beide Hochpaßfilter 
gleichzeitig zu aktivieren. Fügen Sie einfach die beiden zuvor 
gezeigten Listings zusammen (ändern Sie aber eine der Fre- 
quenz-Angaben, da sonst beide Sounds identisch klingen). 


Versuchen Sie auch einmal diese Kombination: 


18 SOUND 8,8,8,8:REM Null-Tonanweisung 

28 POKE 53768,6:REM Hochpassfilter auf AUDF1/AUDF® 
38 POKE 53762,158:REM AUDFI 

35 POKE 53768,5:REM AUDFD® 

38 POKE 53763,47:REM AUDCI 

35 POKE 53761,74:REM AUDCO® 

58 POKE 53766,188:REM AUDF3 

55 POKE 53764,2438: REM AUDF2 

568 FOR Z=& TO 1888:NEXT 2 


2.2.3 16-Bit Frequenz-Wahl (AUDCTL, Bit 3, Bit 4) 


In normalen SOUND-Anweisungen können Sie Frequenz-Angaben 
von O0 bis 255 machen. Da sich die hohen Töne nur begrenzt 
einsetzen lassen (vergl. Klaviatur S. 29), stehen für die Mu- 
sik-Anwendung etwa 3 1/2 Oktaven zur Verfügung. 


Durch Setzen von Bit 3 im AUDCTL werden die Audiofrequenz- 
Register 2 und 3 verbunden, wodurch eine 16-Bit Frequenz- 
Wahl möglich wird (LO-Byte/HI-Byte). Es steht damit ein 
Tonumfang von etwa 8 Oktaven zur Verfügung. Durch Setzen 
von Bit 4 im AUDCTL werden AUDFO und AUDFI verbunden. 


Sie können bei Ihrer Musik-Programmierung also wählen zwi- 
schen vier Tongeneratoren mit je 3 1/2 Oktaven Tonumfang 
oder zwei Tongeneratoren mit je acht Oktaven Tonumfang. 
Darüber hinaus ist auch die Kombination aus 16-Bit Frequenz- 
Wahl und 8-Bit Frequenz-Wahl möglich; Ihnen stehen dann 
z.B. AUDF2/AUDF3 als Bass-Stimme sowie AUDFO und AUDFI1 
als Oberstimmen zur Verfügung. 


Mit dem folgenden Programm-Beispiel werden die Audiofrequenz- 
Register 2 und 3 durch Setzen von Bit 3 verbunden und ein 
tiefes C gespielt (vergl. Frequenz-Tabelle mit LO-Byte und 
HI-Byte-Angaben nächste Seite). 
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18 SOUND 8,8,8,8:REM Null-Tonanweisung 
28 POKE 53768,8:REM 16-Bit-Frequenzwahl 
38 POKE 53764,282:REM AUDF2 (LO) 

48 POKE 53766,3:REM AUDC3 CHI) 

S8 POKE 53767,178:REM AUDC3 

68 FOR Z=8 TO 18B88:NEXT 2 


Wenn Sie stattdessen AUDFO und AUDFI1 für eine 16-Bit Fre- 
quenz-Wahl verbinden wollen, muß das Listing folgendermaßen 
geändert werden: 


18 SOUND 8,8,080,8:REM Null-Tonanweisung 
28 POKE 53768,16:REM 16-Bit-Frequenzwahl 
38 POKE 53768,282:REM AUDF® (LO) 

48 POKE 53762,3:REM AUDCI CHI) 

58 POKE 53763,178:REM AUDCI 

68 FOR Z=8 TO 1888:NEXT 2 


Auf der folgenden Tabelle finden Sie die LO-Byte und HI-Byte- 
Werte für die Musik-Noten, die Sie mit normalem BASIC nicht 
erreichen können. 


242 = Note C (letzte reine Note in BASIC) 


257 727 F 215 
272 770 E 2 
288 816 Dis 48 


305 Gıs 49 864 D 96 
324 G 68 916 Cis 148 
343 Fis 87 970 C 202 
























363 F 107 

385 E 129 

408 Dis 152 

432 D 176 

458 Cis 202 

485 C 229 

514 2 
5hh 

577 

6ll Gis 

647 G 

686 Fis 
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2.2.4 Eingabetakt mit 1,79 MHz (AUDCTL, Bit 5, Bit 6) 


So wie durch Setzen von Bit O0 im AUDCTL der Eingabetakt 
für die Audirofrequenz-Register von 64 KHz auf 15 KHz herab- 
gesetzt werden kann, so ist es mit Bit 5 möglich, den Ein- 
gabetakt auf 1,79 MHz zu erhöhen. Dies gilt für dieFrequenzen 
aus AUDF2. Wird hingegen Bit 6 im AUDCTL gesetzt, erhöht 
sich der Eingabetakt von 64 KHz auf 1,79 MHz für die Fre- 
quenzen aus AUDFO. 


Folgendes Listing zeigt die Wirkung dieser Manipulation: 


18 SOUND 8,8,8,8:REM Null-Tonanweisung 

208 POKE 53768,32:REM Eingabetakt mit 1,79 MHz 
38 POKE 53765,178:REM AUDC2 

438 POKE 53764,FR@: REM AUDF2 

58 FRa=FRü+1 

680 IF FRQ@=255 THEN END 

78 GOTO 48 


Das gleiche Programm, wenn nicht auf AUDF2, sondern auf 
AUDFO 1,79 MHz getaktet werden soll: 


18 SOUND 8,8,8,8:REN Null-Tonanweisung 

28 POKE 53768,64:REM Eingabetakt mit 1,79 MHz 
38 POKE 53761,178:REM AUDCO 

48 POKE 53768,FR@: REM AUDF® 

58 FRQ=FRQ+1 

60 IF FRQ=255 THEN END 

‘8 GOTO 48 


Nach RUN (RETURN) merken Sie, daß ein Teil der Töne jen- 
seits des hörbaren Bereichs liegen. Der Einsatz des 1,79 MHz- 
Taktes läßt sich in dieser Form also nur für Sound-Effekte 
einsetzen. 


Interessant wird es, wenn Sie zusätzlich noch eine 16-Bit 
Frequenz-Wahl programmieren. Sie erhalten dadurch die Mög- 
lichkeit, hohe Notenwerte wesentlich feiner abzustimmen als 
mit normalem BASIC. Selbstverständlich können Sie auch alle 
Frequenzen in den verschiedenen Verzerrungen abspielen 
lassen. Sie erschließen sich damit ein völlig neues Reservoir 
an Sound-Effekten. Doch bevor Sie sich ans Experimentieren 
machen, sollten Sie sich ein paar Tage Urlaub nehmen. Sie 
können nämlich mit der Direkt-Programmierung der Audiofre- 
quenz-Register über 1,2 Millionen verschiedene Sounds erzeu- 
gen. 


Noch ein Tip: Notieren Sie sich die POKE-Werte von gelungenen 
Sound-Effekten, oder speichern Sie sich diese gleich ab. 
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2.2.5 Neuer Verzerrungs-Grad (AUDCTL, Bit 7) 


Es wurde bereits erklärt, daß zur Erzeugung verschiedener 
Töne einzelne Frequenzen aus dem Eingabetakt der Audiofre- 
quenz-Register (normal 64 KHz) herausgefiltert werden. Man 
spricht hier von einer Frequenz-Division (obwohl es sich um 
keine wirkliche Division handelt). 


Nach der Frequenz-Division gelangen die Pulse jedoch nicht 
gleich zum Lautsprecher; vielmehr werden sie einem Poly- 
Counter (Mehrfachzähler) zugeführt, um sich weiter bearbeiten 
zu lassen. Jeder Tonkanal verfügt über drei verschiedene 
Poly-Counter, die je nach gewählter Verzerrung unterschied- 
lich arbeiten. Die genaue Funktionsweise dieser Poly-Counter 
kann hier nicht erklärt werden (eine ausführliche Beschrei- 
bung finden Sie im "ATARI Sound- und Musik-Buch"). Das 
Geheimnis von Bit 7 des AUDCTL besteht darin, daß einer 
dieser Poly-Counter verändert wird und dadurch ein völlig 
neuer Verzerrungs-Grad entsteht, der mit normalen SOUND-An- 
weisungen aufgerufen werden kann. 


Versuchen Sie dazu bitte folgendes Demonstrations-Programm: 


18 SOUND 8,5,8,15 
28 FOR Z=8 TO 588:NEXT 2 
38 POKE 53768,128 
48 FOR 2=8 TO 588:NEXT 2 


Zunächst wird hier die BASIC-Frequenz 5 in der Verzerrung 8 
gespielt (Zeile 10) und danach Bit 7 im AUDCTL gesetzt (Zeile 
30). Der Sound hört sich nun viel rhythmischer an. 


Sie können auf diese Weise sämtliche Frequenzen spielen, die 
normalerweise mit Verzerrung 8 gewählt werden. Darüber 
hinaus ist es auch möglich, diesen neuen Verzerrungs-Grad 
mit den anderen hier vorgestellten Sound-Manipulationen zu 
kombinieren (z.B. 16-Bit Frequenz-Wahl oder Hochpafßfilter). 
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3 Grafik 


Um mit dem Computer kommunizieren zu können, wird ein 
Peripherie-Gerät benötigt. Das ist heute durchweg der Bild- 
schirm, der einen wesentlich schnelleren Austausch ermöglicht 
als z.B. ein Drucker. Die Darstellung der Informationen auf 
der Mattscheibe verlangt vom Rechner jedoch einen erheblich 
größeren Arbeitsaufwand, denn er muß nicht nur die kom- 
pletten Daten für die bildhafte Darstellung ermitteln; da der 
Monitor selbst keinen Speicher hat, muß das Video-Signal 
auch kontinuierlich vom Computer gesendet werden. Neben 
der Datenfülle, die ein Video-Bild enthält, ist die Synchro- 
nisation zwischen den beiden Geräten eine diffizile Angele- 
genheit. 


Im wesentlichen setzt der Rechner das Fernsehbild aus drei 
Informationsquellen zusammen. Zum einen wird eine Display- 
Liste verwendet, die den Video-Chip steuert. Diese Display- 
Liste bestimmt die Aufteilung des Bildschirms und besorgt 
die Synchronisation mit dem Arbeitstakt der Bildröhre. Als 
einziger Computer seiner Größenordnung stellt ATARI sechzehn 
verschiedene Grafik-Betriebsarten bereit, die sich in der 
Bildauflösung (Anzahl der Schreibstellen in horizontaler und 
vertikaler Richtung), Anzahl der gleichzeitig darstellbaren 
Farbtöne und der Darstellung von Grafikpunkten und/oder 
Schriftzeichen unterscheiden. 


Sollen Schriftzeichen auf dem Bildschirm dargestellt werden, 
so muß irgendwo im Speicher des Rechners abgelegt sein, 
wie diese Zeichen auszusehen haben. (Natürlich muß auch 
eine Routine vorhanden sein, welche die Ausgabe der Zeichen 
auf dem Bildschirm organisiert und beim Schreiben von Pro- 
grammen, z.B. im Editier-Modus GRAPHICS 0, den automati- 
schen Zeilenvorschub etc. organisiert, aber davon wird in 
diesem Buch nicht die Rede sein.) 


Die dritte wichtige Informationsquelle ist der Bildschirm- 
speicher. Hier ist abgelegt, an welcher Stelle des Bildschirms 
ein Grafikpunkt einer bestimmten Farbe bzw. ein bestimmtes 
Zeichen aus dem Zeichenvorrat dargestellt werden soll. Ab- 
gelegt sind hier lediglich die COLOR-Werte der Grafikpunkte. 
Welcher Farbton welchem COLOR-Wert zugeordnet ist, bestim- 
men die Farbregister. 
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3.1 Display-Liste (DL) 


Die Display-Liste ist ein kurzes Maschinensprache-Programm, 
das den Video-Chip und damit die Signal-Abgabe an den 
Monitor steuert. Es beginnt mit einem Zeiger (Vektor) auf 
die Start-Adresse des Bildschirmspeichers, enthält dann In- 
formationen für die Bildauflösung und endet mit einem Rück- 
sprungbefehl an den Anfang der Display-Liste. Dieser Rück- 
sprung wird aber erst ausgeführt, wenn die Bildröhre einen 
Vertical Blank ausführt, also immer wenn der Kathodenstrahl 
unten rechts auf der Mattscheibe angekommen ist und nach 
oben links zurückspringt, um einen neuen Durchlauf zu be- 
ginnen. Auf diese Weise wird der Informationsfluß vom Com- 
puter mit dem Bildschirm synchronisiert. 


Nach jedem Bilddurchlauf ließe sich also theoretisch die DL, 
der Bildschirmspeicher oder der Inhalt der Farbregister 
wechseln. Da eine Änderung z.B. des Farbwertes in Bruch- 
teilen von Microsekunden zu erledigen ist, kann man sogar 
die laufende Bearbeitung der DL unterbrechen, Farbwerte 
verändern und die DL weiterlaufen lassen. Dieser DLI (dis- 
play list interrupt) wird während des Horizontal Blank ein- 
gelegt, also in dem Moment, wo der Kathodenstrahl vom 
rechten Rand der Mattscheibe an den Beginn der nächsten 
Abtastzeile springt. 


Änderung der Farbwerte im DLI ist nur in Maschinensprache 
möglich, weil der Inhalt der Farbregister sonst nur nach 
dem Vertical Blank gelesen werden. Durch DLI's ist es mög- 
lich, in jeder Bildzeile einen anderen Farbwert aufzurufen 
und auf diese Weise alle ATARI-Farben gleichzeitig zu 
zeigen: 


188 DIM MN$C243):POKE 718,8:POKE 752,1 

118 7 CHR$(C125) 

128 FOR J=1 TO 23:READ A:M$CJI,TI=SCHR$CA):NEXT J 

138 A=USRCADRCN$)) 

138 END 

158 DATA 162,0,173,11,212,281,32,208,239,131,10,212,1 
32,243,208,232,232,208,236,1432,23,208,248,232 


Dieses kleine BASIC-Programm verarbeitet die Maschinenspra- 
che-Routine als String (M$). Die DATA in Zeile 150 enthalten 
die Anweisung für den DLI und die Änderung des Farbwertes 
nach jedem Horizontal Blank. 
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Die Arbeitsweise .der Bildröhre 





Ein gelenkter Kathodenstrahl tastet die Vorderfläche der 
Bildröhre fortlaufend ab. Er beginnt in der Ecke oben links 
und schreibt eine Zeile. Am rechten Rand angelangt, wird 
er kurz abgeschaltet und springt nach links, an den Anfang 
der nächsten Zeile. Diese kurze Schreibunterbrechung heißt 
Horizontal Blank. 


Ist der Kathodenstrahl in der rechten unteren Ecke ange- 
langt, wird er für einen etwas längeren Moment ausgeschal- 
tet, um in die Ausgangsstellung nach oben links zurückzu- 
kehren. Dieser Vorgang wird Vertical Blank genannt. 


Der Kathodenstrahl tastet die Bildfläche in einer Sekunde 
fünfzig Mal ab. Die Blanks sind also ausgesprochen kurz. 
Wegen der hohen Arbeitsgeschwindigkeit der Elektronik bieten 
sie trotzdem genügend Raum, um z.B. das Video-Text-Signal 
aufzunehmen. 


4u 


3.1.1 Struktur der DL 


Ein Fernsehbild besteht (nach der bei uns gültigen CCIR- 
Norm) aus 625 Zeilen mit insgesamt etwa einer halben Million 
Bildpunkten. Da in einem Durchlauf nur jede zweite Zeile 
abgetastet wird (Halbbild), halbiert sich der Informations- 
gehalt eines Einzelbildes. Doch selbst wenn jeder dieser 
250.000 Punkte nun in einer Farbe leuten oder nicht leuchten 
können soll, so ergibt das immer noch eine Informationsmenge 
von ca. 31 kByte und damit ist heute noch jeder Heim- 
Computer reichlich überfordert. (Die gängigen 64-kByte-Geräte 
lassen dem Benutzer durchschnittlich 32 kByte RAM übrig 
und ein bißchen Platz soll ja auch noch für ein Programm 
bleiben.) 


Heim-Computer nutzen deshalb nur einen Teil der Bildröhre. 
Beim ATARI sind es genau 192 Zeilen, auf denen er 320 
Punkte anspricht. Um diese Auflösung mit entweder schwarzen 
oder weißen Punkten zu füllen, braucht es immerhin noch 
7.680 Byte (ca. 7,5 KByte) und das ist rund ein Viertel des 
verfügbaren Speichers. 


Deshalb gibt es neben der HlI(gh) RES(olution) noch diverse 
Bildauflösungen, die weniger Kapazität verschlingen, weil 
die ansprechbaren Grafikpunkte größer sind. Mehrere auf 
einer Zeile nebeneinander liegende Bildpunkte werden zusam- 
mengefaßt und mehrere Abtastzeilen der Bildröhre werden mit 
der gleichen Bildinformation versort, so daß eine Grafik- 
Modus-Zeile entsteht, die zwei, vier oder acht Abtastzeilen 
hoch ist. Auf diese Weise entstehen Grafikpunkte, die ein, 
zwei, vier oder acht Bildpunkte breit und ein, zwei, vier 
oder acht Abtastzeilen hoch sind. 


Wie die im Bildschirmspeicher des Computers liegenden In- 
formationen auf dem Monitor umgesetzt werden sollen, ist in 
der Display-Liste vorprogrammiert. Wird z.B. GRAPHICS 4 
aufgerufen, dann beträgt die Auflösung 80 mal 40 (bzw.48) 
Grafikpunkte. Jedes Pixel ist also vier Bildpunkte breit und 
vier Bildschirmzeilen hoch. Wenn der Video-Chip nun die 
Daten aus dem Bildschirmspeicher liest, dann bestimmt jedes 
Bit den COLOR-Wert für vier Bildpunkte (80*4=320) und die 
Daten für eine Bildschirmzeile werden viermal hintereinander 
an die Bildröhre abgegeben (4*48=192). 


Da ohnehin nur ein Teil der Bildfläche genutzt wird, be- 
ginnt das Computer-Bild nicht am oberen Rand des Bild- 
schirms, sondern 24 Abtastzeilen tiefer. Die DL beginnt des- 
halb mit der Anweisung, dreimal acht leere Bildschirmzeilen 
zu schreiben. Es folgt die LMS- (load memory scan) Anwei- 
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sung ("hole Daten aus Speicher"), der natürlich die Infor- 
mation folgen muß, bei welcher Adresse beginnend diese Da- 
ten liegen, im Falle Grafik also die Start-Adresse des Bild- 
schirmspeichers. Um eine Adresse zu erfassen werden zwei 
Byte benötigt die in der Reihenfolge LO (low Byte), HI (high 
Byte) abgelegt werden. Adresse = LO+HI*256. 


LO (low Byte), HI (high Byte). Die Start-Adresse errechnet 
sich LO+HI *256. 


Es folgen so viele Byte wie Zeilen auf dem Bildschirm ent- 
stehen sollen. Jedes Byte bestimmt mit einem speziellen Wert, 
ob es sich um die Darstellung von Schriftzeichen oder Grafik- 
punkten handelt, wie viele Farbtöne darstellbar sind, wie 
viele Schreibpositionen/Grafikpunkte auf einer Zeile liegen 
und wie oft die Zeile wiederholt werden soll, d.h. wie viele 
Bildschirmzeilen ein Grafikpunkt hoch ist. 


Da das Video-Signal fortlaufend gesendet werden muß, ist 
die Display-Liste eine endlose Schleife. Sie endet also mit 
einem Sprungbefehl. Der Sprungbefehl wird aber erst ausge- 
löst, wenn ein Vertical Blank auftritt, damit Display-Liste 
und Bildröhre synchron laufen. Nach dem Sprungbefehl folgen 
wieder zwei Byte mit der Sprung-Adresse (LO, HI) und zwar 
an den Anfang der Display-List. 


Bevor es mit haufenweise Zahlen weitergeht, sehen Sie sich 
doch erst einmal ein paar Display-Lists an. Mit jedem GR.- 
Befehl, den Sie programmieren, wird ja eine entsprechende 
Routine im Speicher abgelegt: 


8 REM DLPRINT.BI2 
18 POKE 82,0:?7 CHR$(C12593:7? 
28 ? ” Die Display-Liste welchen Grafikganges” 


38 ? :? ” wollen Sie sich ansehen?” 

38 ? :? ” Bitte eine Zahl von B bis 31 eingeben: ” 

re 1 er "„.27..7 
68 INPUT G 


78 GRAPHICS G:DIM PC2081) 

88 DL=PEEKCSSO)I +PEEK(S6E1)X256 

98 FOR I=8 TO 281 

188 PCI)I=PEEKCDL+I) 

118 NEXT I 

288 GRAPHICS 8:POKE 82,08 

218 FOR I1=8 TO 14:POKE 675+1,136:NEXT I 
228 FOR I=8 TO 281 

238 IF PCI)=8 THEN IF PCI+1)=8 THEN END 
248 7? PCID;CHR$C127); 

258 NEXT I 
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70: Hier wird der eingegebene Grafikgang eingeschaltet und 
damit die entsprechende Display-Liste aufgerufen. 


80: Die Start-Adresse der Display-Liste ist in den Adressen 
88 (LO) und 89 (HI) abgelegt. 


9: Die Daten-Byte aus der Display-Liste werden in der 
Variablen Pf(n) gespeichert, denn um die Werte auf den 
Bildschirm zu bringen, muß GR.O eingeschaltet werden und 
damit wird auch die Display-Liste von GR.O im Speicher ab- 
gelegt. 


200: Während die Display-Liste gelesen wird, ist der entspre- 
chende Grafik-Modus eingeschaltet. Das dauert einen kleinen 
Moment. Dann wird der Text-Modus GR.OD eingeschaltet. 


210: schreibt TAB-Marken in die entsprechenden Register. 
230: stellt das Ende der Display-Liste fest. 
240: schreibt die Display-Liste auf den Bildschirm. 


Sie sehen, daß alle Standard-Display-Lists mit drei Byte 
beginnen, die den Wert 112 haben. Sie veranlassen die Aus- 
gabe von je acht leeren Bildschirmzeilen. Es folgt der Wert 
64 (LMS) erhöht um die Kennzahl für die Darstellung der 
ersten Arbeitszeile. Für jeden Grafikgang gibt es eine andere 
Steuerzahl (s. Tabelle). 


Wenn Sie einen Grafik-Modus mit Textfenster aufrufen, sehen 
Sie, daß die vier Zeilen in GR.O auch durch ein LMS einge- 
leitet werden, denn das Textfenster hat einen eigenen Bild- 
schirmspeicherbereich. Deswegen ist es möglich, das Text- 
fenster aus- und wieder einzublenden, ohne daß die Daten 
verloren gehen. 


Bei den Grafik-Betriebsarten, die sehr viel Speicherplatz 
belegen, können Sie auch sehen, daß die Display-Liste 
geteilt ist. Grund dafür ist, daß der Bildschirmspeicher 
keine 4-k-Grenze überschreiten darf (keine Adresse des Bild- 
schirms darf durch 4096 teilbar sein). Ist das der Datenfülle 
wegen unumgänglich, muß diese Grenze durch einen erneuten 
LMS-Befehl in der Display-Liste überbrückt werden. 


Die Grafik-Modi 9, 10 und 11 verwenden die gleiche Display- 
Liste wie GR.8. Die beiden höchstwertigen Bits von Adresse 
623 erfassen den Unterschied: 


Bit 7: (6) Bit 6: 0 (dezimal 0) GRAPHICS 8 
Bit 7: 0 Bit 6: 1 (dezimal 64) GRAPHICS 9 
Bit 7: 1 Bit 6: Ö (dezimal 128) GRAPHICS 10 
Bit 7: 1 Bit 6: 1 (dezimal 192) GRAPHICS 11 
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Die Tabelle zeigt Ihnen alle 8-Bit-Kommandos (umgerechnet 
in Dezimalwerte), die den Video-Prozessor ANTIC steuern. Es 
gibt Kommandos für ein bis acht leere Bildschirmzeilen. Sie 
bewirken, daß kein Signal gesendet wird, die Bildröhre 
bleibt schwarz. Den Wert 112 (acht Leerzeilen) haben Sie ja 
schon bei den Standard-Display-Lists kennengelernt. 


Als nächstes gibt es zwei Sprungbefehle. Der eine (JMP) 
wird sofort ausgeführt, den werden Sie später noch in einem 
Programm kennenlernen, der andere (JVB) wartet auf das 
Vertical Blank der Bildröhre und sorgt so für die Synchro- 
nisation zwischen beiden Geräten. Jedem Sprungbefehl muß 
die Sprungadresse folgen. Da Adressen bis 32767 möglich 
sind, werden für die Adresse zwei Byte benötigt, die in der 
Reihenfolge LO, HI dem Sprung folgen. 


Die Kommandos für die Darstellungsart zerfallen in zwei 
Gruppen. ANTIC 2 bis 7 bringen definierte Zeichen auf den 
Bildschirm. ANTIC 8 bis 15 dienen der Darstellung von 
Grafikpunkten. Beide Betriebsformen beziehen die Daten, was 
abgebildet werden soll, aus dem Bildschirmspeicher. Wie der 
Bildschirmspeicher organisiert ist, lesen Sie in Abschnitt 1.3. 
Der Character Mode braucht darüber hinaus noch Daten über 
die Struktur der aufgerufenen Zeichen. Die Gestalt der 
Zeichen des ATARI-Zeichensatzes, also die Zeichen, die bei 
entsprechendem Tastendruck auf dem Bildschirm erscheinen 
(ATASCII-Code) sind im ROM-Bereich gespeichert. Wie man an 
diese Daten herankommt und wie man einen eigenen Zeichen- 
satz definieren kann, lesen Sie im Kapitel 1.2. 


Woher sich ANTIC die Bilddaten holen soll, sagt ihm die 
LMS-Anweisung (load memory scan). Sie hat den (Dezimal-) 
Wert 64 und wird der Kennzahl für die erste Arbeitszeile 
dazuaddiert. In der Tabelle finden Sie die entsprechenden 
Werte, wenn Sie in den vier Kopfzeilen die Spalte suchen, in 
der nur in der Zeile LMS ein Pfeil nach unten zeigt. 


Wenn ANTIC ein Daten-Byte empfängt, bei dem in den Bits O0 
bis 3 ein Character Mode oder Memory Map Mode gesetzt ist 
und zusätzlich das Bit 6 (dezimal 64), dann verarbeitet er 
die beiden folgenden Byte als Vektor auf die Start-ÄAdresse 
des Bildschirmspeichers. Durch das Setzen von Bit 7 (dezi- 
mal 128) kann die Display-Liste unterbrochen werden (DLI, 
display list interrupt). Durch Setzen von Bit 5 (dezimal 32) 
wird vertikales Rollen (VSCROL, vertical scrolling) des Bild- 
schirminhaltes ausgelöst und durch Bit 4 (dezimal 16) hori- 
zontales Scrollen (HSCROL). 


In den vorderen Spalten der Tabelle sind die verschiedenen 
Betriebsarten charakterisiert. Die erste Spalte gibt an, wie 
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viele Schreibstellen bzw. Grafikpunkte auf einer Zeile liegen. 
Die zweite Spalte nennt die Anzahl von Farben, die gleich- 
zeitig auf dem Bildschirm darstellbar sind. Die dritte Spalte 
gibt Aufschluß darüber, aus wie vielen Bildschirmzeilen sich 
eine Arbeitszeile zusammensetzt. im Memory Map Mode be- 
deutet das, wie oft die Daten für eine Bildschirmzeile wie- 
derholt gesendet werden. In der nächsten Spalte sehen Sie, 
mit welcher GRAPHICS-Kennzahl Sie den korrespondierenden 
ANTIC-Mode ansprechen können. Und die letzte Spalte sagt, 
wieviel Bildschirmspeicher eine Zeile in der betreffenden 
Betriebsart belegt. 


3.1.2 Ändern der DL 


Jetzt, wo Sie wissen, wie die DL (display list) aufgebaut ist 
und wie ANTIC herumkommandiert wird, können Sie es be- 
stimmt kaum abwarten, darin herumzuprogrammieren. (Mir 
geht es ja nicht anders.) 


Besonders jene Leser, die noch ein älteres ATARI-Modell ihr 
stolzes Eigen nennen, werden gerne hören, daß Sie mit nur 
wenigen BASIC-Zeilen die Betriebsarten GRAPHICS 12, 13, 14 
und 15 auch zur Hand haben können. Man nehme: 


8 REM GR145IMU.BI2 

18 GRAPHICS 24 

28 DL=PEEK(C5568)I+256*XPEEKCSEI) 

38 FOR 1=8 TO 201 

38 IF PEEKCDL+I>=15 THEN POKE DL+1,14 
58 IF PEEKCDL+1)=79 THEN POKE DL+I1,78 
68 NEXT I 

78 COLOR 1 

88 PLOT 8,8:DRAUTO 191,191 

98 GOTO 98 


10: Ob Sie GRAPHICS 8 oder 24 (mit Textfenster) wählen, ist 
unerheblich. Mit diesem Befehl wird nur eine DL aufgerufen, 
die anschließend verändert werden soll. 


20: errechnet die Start-Adresse der DL 


30: GRAPHICS 8 hat die längste Display-Liste, sie ist genau 
202 Byte lang. 


40: Wo immer in der DL eine 15 steht (Modus-Byte-Zahl für 
eine GRAPHICS-8-Zeile), wird eine 14 abgelegt, 


50: wo eine 79 (15+64) liegt, kommt eine 78 (14+64) hin. 
70 bis 90: ziehen eine Linie in GRAPHICS 14. 
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Wenn Sie aufgepaßt haben und die Tabelle aus dem vorigen 
Abschnitt noch einmal ansehen, werden Sie hoffentlich ein- 
wenden, daß der ANTIC Code für eine Zeile in GRAPHICS 14 
nicht 14 sondern 12 ist. Und dann wollen Sie bestimmt wis- 
sen, warum in den Zeilen 40 und 50 trotzdem die 14 in alle 
Adressen gePOKEt wurde? 


Gut! Sie erinnern sich, daß die DL von GRAPHICS 8 in der 
Mitte einen zweiten LMS-Befehl enthielt? Eine Zeile in GR.14 
belegt 20 Byte im Bildschirmspeicher, eine Zeile in GR.8 
jedoch 40. Die Standard-DL für GR.8 zeigt hinter dem zweiten 
LMS auf eine Adresse, die 94*40 Byte tiefer liegt als die 
Start-Adresse, GRAPHICS 14 benötigt aber nur 94*20 Byte für 
Bild-Daten, um den ersten Teil der DL zu füllen. Welche 
Folgen das für den Bildschirminhalt hat, sehen Sie sich am 
besten selbst einmal an. Schreiben Sie in Zeile 40 eine 12 
und in Zeile 50 eine 76. 


Natürlich können Sie den Vektor nach dem zweiten LMS-Befehl 
auch ändern. Er müßte 94*20=1880 Byte höher zeigen. Aber 
da ist es so bequemer, wie es im vorliegenden Programm ge- 
löst ist. 


Hinzu kommt noch, daß mit nur einer zusätzlichen Zeile mit 
dem sonst gleichen Programm auch die Grafik-Betriebsart 15 
simuliert werden kann: 


8 REM GRI1SSIMU.BI2 

18 GRAPHICS 23 

28 DL=PEEK(CS6EB) +2S56*PEEK(CSGI) 

38 FOR 1=8 TO 201 

48 IF PEEKCDL+I)=15 THEN POKE DL+1I,14 
58 IF PEEK{CDL+I1)=79 THEN POKE DL+I1,78 
68 NEXT I 

8 POKE 87,7 

88 COLOR 1 

98 PLOT 8,08:DRAUTO 4398,68 

188 COLOR 2 

118 PLOT 18,8:DRAWTO 50,68 

128 COLOR 3 

138 PLOT 28,8:DRAUTO 68,68 

148 GOTO 148 


70: Mit einer 7, hier in das Register 87 gePOKEt, wird dem 
Computer vorgegaukelt, der Grafikgang 7 sei eingelegt, also 
stellt er brav vier verschiedene COLORs zur Auswahl, wovon 
Sie sich in den Zeilen 


80 bis 140: selbst überzeugen können. 
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Um den Text-Modus GRAPHICS 12 zu simulieren, ist die DL 
von GR.D gut geeignet: 


8 REM GRI12SIMU.BI2 

18 GRAPHICS ® 

28 DL=PEEKCSSBI+PEEK(CS5E1)X*256 

38 FOR I=8 TO 31 

38 IF PEEKCDL+I)=2 THEN POKE DL+1,2 
58 IF PEEKCDL+I1)=66 THEN POKE DL+1I,68 
68 NEXT I 

ra ? "1233567898 ” 

88 ? "abcdefghik” 

98 ? "12345678909" 

188 7 "abcdefghik” 


30: Die DL von GR.OD ist 32 Byte lang. 
40: Die Modus-Byte-Zahl für eine Zeile in GR.12 ist 4 
50: Eine GR.12-Zeile (4) und LMS (64) ergeben 68 


90 und 100: Wenn Sie in diesem beiden Zeilen den String mit 
negativen Zeichen füllen, dann bekommen Sie auch alle vier 
Farben auf den Bildschirm. Wie das bunte Durcheinander 
zustande kommt und warum man die Zeichen kaum noch er- 
kennen kann und viel wichtiger noch, wie man das ändern 
kann, lesen Sie im Kapitel 1.4. 


Die Display-Liste für GRAPHICS 13 sieht nicht viel anders 
aus. Die Modus-Byte-Zahl ist hier 5: 


@ REM GR13SINU.BI2 
18 GRAPHICS 9 

28 DL=PEEK(SS8)+PEEK(561)x*256 

38 FOR I=8 TO 31 

48 IF PEEK(CDL+I)=2 THEN POKE DL+1,5 
58 IF PEEK(DL+I)=66 THEN POKE DL+I1,69 
68 NEXT I 

78 ? "1234567899" 

88 ? "abcdefghik” 

98 ? "1234567899" 

188 ? "abcdefghik” 


Nun erschöpft sich die Kunst des Programmierens aber nicht 
damit, vorgekaute Display-Lists ein wenig zu verändern. 
Wenn Sie Experimentierfreude (und Mut) haben, können Sie 
sich eine beliebige eigenen DL zusammenPOKEn und dabei 
Zeilen aus allen Grafik-Töpfen zusammenpanschen. Allerdings 
gibt es eine ganze Menge, was man dabei falsch machen 
kann. Eine gute Portion Ausdauer sollten Sie schon mitbrin- 
gen, denn manche gut gemeinte Display-Liste wird nur ein 
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schreckliches Durcheinander auf die Mattscheibe schreiben. 
Aber zu Ihrer Beruhigung, was immer Sie mit der DL an- 
stellen und wie sehr das verursachte Bild den Sinnen weh 
tun mag, Ihr kostbarer Fernsehapparat oder Monitor kann 
davon nicht beschädigt werden. Dem Kathodenstrahl ist es 
so völlig gleichgültig, was er in die Phosphor-Schicht 
brennt, das können Sie sich gar nicht vorstellen. 


Das folgende Programmbeispiel zeigt Ihnen, wie eine Display- 
Liste aus verschiedenen Grafik-Modi gebaut werden kann: 
kann: 


8 REM DISLIST.BI2 

GRAPHICS 28:POKE 87,2 
DL=PEEK(S6B) +PEEKC561)%*256 
POKE DL+B,112 

POKE DL+1,112 

POKE DL+2,112 

POKE DL+3,7® 

POKE DL+4,PEEK(88) 

POKE DL+S,PEEK(89) 

POKE DL+6,6 


POKE 
PORE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


DL+7,6 

DL+8,7 

DL+9,7 

DL+18,7 
DL+11,7 
DL+12,2 
DL+13,2 
DL+14,7 
DL+15,7 
DL+16,7 
DL+17,7 
DL+18,6 
DL+19,6 
DL+20,6 


POKE DL+21,65 

POKE DL+22,PEEK(CS68) 

POKE DL+23,PEEK(S561) 

FOR X=8 TO 19 

FOR Y=8 TO 11 

COLOR 48:PLOT X,Y 

NEXT Y 

NEXT X 

SM=PEEK(88)I +PEEKC89)x256 

FOR J=8 TO 119:POKE SM+2408+J,33:NEXT J 


588 GOTO 588 
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10: Die DL wird im tiefsten Anwender-RAM-Bereich des Spei- 
chers abgelegt, also oberhalb der Adresse 40960. Direkt auf 
die DL-Daten folgt der Bildschirminhalt. Dieser gesamte 
Speicherbereich muß gegen Überschreiben von oben gesichert 
werden. Das erreichen Sie, indem Sie einen Grafikgang auf- 
rufen, der einen größeren Speicherbedarf hat als die DL- 
Liste plus Bildschirmspeicher, die Sie kreieren wollen. Nur 
zu diesem Zweck wird hier GR.20 aufgerufen. Mit einer 2 in 
Adresse 87 wird dem Rechner dann nahegelegt, sich auf die 
Belange von GRAPHICS 2 einzurichten. 


20: Start-Adresse der Display-Liste 


30 bis 50: Am Anfang der DL stehen die vertrauten dreimal 
acht Leerzeilen. Diese Werte müßten hier nicht gePOKEt wer- 
den, da ja mit GR.20O auch die entsprechende DL aufgerufen 
wurde, also stehen in diesen Adressen bereits die Werte 112. 
Das Programm enthält diese drei Zeilen nur, um einen voll- 
ständigeren Überblick zu geben. Und um den Hinweis zu er- 
möglichen, daß die Display-Liste nicht notwendig mit 24 
leeren Zeilen beginnen muß. 


60: LMS (64) plus eine Zeile GR.1i (6) = 70 


70 und 80: Die Start-Adresse des Bildschirmspeichers (screen 
memory) findet sich in den Adressen 88 (LO) und 89 (HI). 


90 bis 230: Eine bunte Mischung aus GR.1, GR.2 und GR.O. 
Natürlich ist jede andere Mischung denkbar, Sie müssen nur 
darauf achten, daß die Summe aller Arbeitszeilen, die Ihre 
eigene DL enthält umgerechnet in Bildschirmzeilen, die sie 
belegen, den Wert 192 nicht überschreitet. Ist die DL kürzer, 
so macht das nichts, da ANTIC ja auf den Vertical Blank 
wartet. Ist die DL aber länger, so sendet ANTIC mehr Sig- 
nale als der Bildschirm in einem Durchlauf verarbeiten 
kann, die Bildinformationen sind länger als das Bild: das 
Bild fängt an zu laufen. 


240: JVB, der Sprungbefehl, der auf den Vertical Blank 
wartet. 


250 und 260: Und die Adresse für den Sprung, die Start- 
Adresse der Display-Liste. 


310 bis 350: Jetzt soll der Bildschirm noch beschrieben wer- 
den. Das Betriebssystem glaubt sich durch POKE 87,2 im 
Garfik-Modus 2. Mit COLOR 48 rufen wir ATASCII 48 in der 
Farbe aus Register 708 auf. Spalte um Spalte wird die Matt- 
scheibe vollgenullt. Spaltenweise! Bitte beachten Sie, daß in 
den beiden GRAPHICS-O-Zeilen in der Mitte des Bildes eine 
Null am linken Rand und dann eine Null in der Mitte ge- 
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schrieben wird. Das Betriebssystem geht davon aus, daß es 
sich in GR.2 bewegt und entsprechend ordnet es den Inhalt 
der Zellen aus dem Bildschirmspeicher Positionen auf dem 
Bildschirm zu. In GRAPHICS 2 ist aber eine Zeile nur 20 
Spalten breit. Folglich interpretiert das Betriebssystem eine 
GRAPHICS-O-Zeile (40 Schreibpositionen) als zwei Arbeits- 
zeilen zu je 20 Spalten. 


Die Bildschirmdaten sind im Speicher hintereinander aufge- 
reiht, eine flächige Anordnung nehmen sie erst auf dem 
Bildschirm ein. Der eingeschaltete Grafik-Modus setzt für 
das Betriebssystem fest, wieviele Byte aus dem Bildschirm- 
speicher eine Arbeitszeile füllen. 


Deswegen können in der selbstgebastelten DL auch nicht be- 
liebige Grafik-Zeilen wechseln, wenn ein lesbares Bild mög- 
lich werden soll. Wenn z.B., um es gleich am Extrem vorzu- 
führen, in der vorliegenden DL in einer Zeile GR.O durch 
GR.8 ersetzt würde, dann käme die Anordnung der Daten aus 
dem Bildschirmspeicher vollkommen aus dem Gleichschritt. 


Der Grafik-Modus, in dem sich das Betriebssystem wähnt, 
begrenzt auch die zulässigen Cursor-Positionen und damit 
die Werte für PLOT-, DRAWTO- und POSITION-Kommandos. 
GRAPHICS 2 läßt nur 12 Zeilen (und 20 Spalten) zu. Da die 
vorliegende DL 16 Zeilen hat und die beiden GRAPHICS-O- 
Zeilen doppelt gezählt werden müssen, lassen sich die 
unteren sechs Zeilen nicht mit der FOR-NEXT-Schleife füllen. 
Da bleibt dann nur die Möglichkeit, die gewünschten Werte 
direkt in den Bildschirmspeicher zu POKEn. 


360: Der Vektor auf die Start-Adresse der Screen Memory. 
370: Zwölf Zeilen ä 20 Byte werden durch die Zeilen 310 bis 


350 beschrieben. Weitere sechs Zeilen a 20 Byte (=120 Byte) 
sollen mit Daten gefüllt werden. Zeichen nimmt der Bild- 
schirmspeicher im internen Code auf. Der Wert 33 entspricht 
dem Buchstaben A (ATASCII 65). Die Schleife hier beschreibt 
120 Speicherzellen (0 bis 119) mit dem Wert 33 und beginnt 


240 Bytes unter der Start-Adresse der SM (screen memory). 


Falls Sie die Behauptungen über den Bildschirmspeicher 
jetzt etwas verwirren, möchte ich Sie auf das Kapitel 1.3 
vertrösten, wo auf diese Fragen ausführlicher eingegangen 
werden soll. 


Nun zwingt Sie natürlich niemand, in Zeile 10 eine 2 in die 
Adresse 87 zu POKEn. Ich habe es ja auch nur getan, um 
Ihnen die ganze Problematik erklären zu können. Wenn Sie 
nämlich dem Betriebssystem einreden, es befände sich in 
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GRAPHICS 1, dann können Sie zwar auch nur 20 Spalten, 
aber 24 Zeilen ansprechen. Und das reicht schließlich für 
die vorliegende DL völlig aus. Andern Sie also: 


18 GRAPHICS 28:POKE 87,1 
und fangen Sie das Programm in Zeile 355 auf: 
355 GOTO 355 


Jetzt können Sie in Zeile 320 den Endwert für den Schleifen- 
zähler Y vergrößern. Zählen Sie selbst aus, wieviele Zeilen 
vollzuschreiben sind. (Aber vergessen Sie nicht, die beiden 
GRAPH ICS-O-Zeilen doppelt zu zählen!) 


3.1.3 Subroutine in der DL 


Das Verändern der Display-Liste erschließt grenzenlose neue 
Möglichkeiten, aber vom Programmierer wird eine ganze 
Menge mehr Aufwand und Aufmerksamkeit gefordert. Die 
ANTIC-Kommandos müssen bekannt sein und richtig eingesetzt 
werden, die Eigenarten des Bildschirmspeichers müssen be- 
rücksichtigt werden (4-k-Grenze) und die Aufteilung der 
Bildschirmzeilen in Arbeitszeilen mit den Folgen für die An- 
ordnung der linear gespeicherten Bild-Daten auf der Fläche 
des Bildschirms muß wohl geplant werden. Schließlich müssen 
die Daten im Bildschirmspeicher evt. noch neu organisiert 
werden, um zu vernünftigen Arbeitsabläufen zu kommen, wenn 
die neu geschaffene Display-Liste mit Leben in Form von 
Grafikpunkten und/oder Zeichen, womöglich selbstdefinierten, 
gefüllt werden soll. 


Eine andere eindrucksvolle Möglichkeit bietet eine Subroutine 
in der Display-Liste. Mit diesem Unterprogramm werden die 
von den Standard-Display-Listen nicht beschriebenen Bereiche 
am oberen und unteren Rand des Bildschirms gefüllt. Das ist 
deshalb so interessant, weil der Arbeitsaufwand dafür relativ 
gering ist. Zum anderen handelt es sich aber um ein Unter- 
programm, das von der eigentlichen DL ganz unabhängig 
arbeitet und seine Bild-Daten aus einem eigenen kleinen 
Bildschirmspeicher bezieht. Deshalb bleibt die Gestaltung 
oberhalb oder unterhalb des normalen Bildbereichs unver- 
ändert stehen, während sich der von der regulären DL ver- 
arbeitete Bildinhalt verändert. 

Mit diesem Unterprogramm können Sie also z.B. eine stehende 
Kopfzeile programmieren, die eine Überschrift enthält, 
während Sie im GRAPHICS-O-Bereich ein Programm eintippen, 
Text ausgeben, ein Spiel oder eine Grafik ablaufen lassen. 
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Lassen Sie sich nicht von dem folgenden Listing verwirren. 
Es sieht auf den ersten Blick verwirrender aus, als es in 
Wirklichkeit ist: 


a REM DISLTOP1.BI2 

18 GRAPHICS 8:POKE 559, 

28 RESTORE 68 

38 FOR I=ß8 TO 27 

48 READ A:POKE 1536+1,A 

58 NEXT I 

60 DATA 8,8,78,8,6,1,8,08 

”a DATA 16,17,18,19,280,149,150,151,152,153,80,81,82,8 
3,84,213,214,215,216,217 

280 DL=PEEK(S56B)I +PEEK(S561)%*256 

218 POKE DL,1:POKE DL+1,8:POKE DL+2,6 

228 POKE 1542,PEEK(560)+2:POKE 1543,PEEK(S61):POKE 55 
9,34 


10: Hier wird der Grafik-Modus eingeschaltet, in dem der 
normale Bildschirmausschnitt betrieben werden soll. Mit einer 
0 in Register 559 wird ANTIC abgeschaltet. Das empfiehlt 
sich bei allen Eingriffen in die Display-Liste, weil es sonst 
u.U. geschehen kann, daß der Prozessor durcheinandergerät 
und die erwarteten Ergebnisse ausbleiben. 


30 bis 50: lesen 28 Daten-Byte und POKEn sie in die Adresse 
1536 und die darunter folgenden. Im obersten Speicherbereich 
ist ein kleiner Abschnitt als Anwender-RAM freigelassen. Es 
handelt sich um die Adressen 1152 bis 1791. Hier können 
kurze Maschinensprache-Routinen abgelegt werden, ohne daß 
Gefahr besteht, daß sie überschrieben werden, denn ein 
BASIC-Programm kann in diesen Speicherbereich nicht eind- 
dringen. 


60: Diese Zeile enthält die Subroutine für die Display-Liste. 
Sie ist genauso aufgebaut wie die reguläre DL. Weil sie nur 
wenige Zeilen auf dem Bildschirm mit Daten versorgt, ist sie 
ganz kurz. 


Oberhalb des üblichen Bildschirmbereichs bleiben bekanntlich 
24 Bildschirmzeilen leer. Diese 24 Zeilen können durch diese 
Subroutine gefüllt werden. Das DATA 70 löst ein LMS (64) 
aus und richtet eine Zeile in GR.1 ein. Die beiden folgenden 
Byte (8,6) zeigen auf die Start-ÄAdresse des Bildschirmspei- 
chers. Natürlich brauchen wir für diese Sub-DL einen ge- 
sonderten Speicherbereich, der die Bilddaten enthält. Wir 
legen ihn wie üblich direkt hinter die DL. 8 (LO) und 6 
(HI) zeigen auf die Adresse 1544 und das ist genau die 
Speicherzelle in der das erste DATA aus Zeile 
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70: abgelegt ist. Dies sind nämlich die Daten-Byte des Sub- 
Bildschirmspeichers. In eine GRAPHICS-O-Zeile passen 20 
Zeichen, deshalb finden sich hier 20 DATA. Zusammen mit 
den acht Byte der Sub-DL sind das die 28 Byte, die in den 
Zeilen 30 bis 50 gePOKEt worden sind. 


Die Sub-DL in Zeile 60 setzt sich mit einer 1 fort, die einen 
sofortigen Sprung auslöst. Die beiden O-en beschreiben die 
beiden Speicherzellen, in denen das Sprungziel abgelegt 
werden muß. Diese beiden Byte (LO und HI) werden weiter 
unten im Programm berechnet und nachträglich gePOKEt. 


Es empfiehlt sich, die bislang besprochenen Zeilen am An- 
fang eines größeren Programmes unterzubringen. Damit ist 
die Sub-DL zusammen mit ihrer Sub-SM bereits im Speicher 
vorhanden. Die folgenden Kommandos können dann an der 
Stelle des Hauptprogrammes gegeben werden, wo die Kopfzeile 
auf der Bildfläche erscheinen soll. 


200: berechnet die Start-Adresse der DL 


210: ändert die ersten drei Byte der Display-Liste. Hier 
steht normalerweise dreimal der Wert 112 (acht Leerzeilen). 
Diese drei Kommandos werden durch die Folge 1,0,6 ersetzt. 
Der Wert 1 löst einen Sprung aus, O0 (LO) und 6 (HI) zeigen 
auf das Sprungziel (1536), nämlich die erste Adresse der 
Sub-Display-List. 


Wenn ANTIC die DL abarbeitet, beginnt er mit einem Sprung 
in das Unterprogramm, arbeitet die kleine DL dort ab und 
bringt die Arbeitszeilen mit den dort abgelegten Bild-Daten 
auf den Schirm. Dann springt er zurück in die reguläre DL 
und erzeugt das Grafikfenster in der aufgerufenen Betriebs- 
art. Und natürlich wiederholt er diesen Vorgang unentwegt. 


Nur die Rücksprungadresse fehlt noch im Unterprogramm! In 


220: wird sie in den Adressen 1542 und 1543 abgelegt, das 
sind genau jene beiden Speicherzellen, die durch die READ- 
DATA-Anweisung nur vorläufig mit O0-en reserviert wurden. 
Da nach der Abarbeitung der Sub-DL die reguläre DL bear- 
beitet werden soll, muß der Rücksprung in die Display-Liste 
erfolgen, aber nicht an ihren Beginn, sondern zwei Byte 
tiefer. Zwischen der von der Sub-DL erzeugten GRAPHICS-1- 
Zeile und dem regulären Bildschirmbereich werden dann nur 
acht Leerzeilen geschrieben. 


Natürlich ist es auch möglich, drei Byte tiefer in die DL zu 
springen. Dann werden aber gar keine Leerzeilen erzeugt, 
und der GRAPHICS-O-Bildschirm rutscht um acht Bildschirm- 
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zeilen nach oben. 


Mit POKE 559,34 am Ende von Zeile 220 wird ANTIC wieder 
eingeschaltet. Solange ANTIC abgeschaltet ist, bleibt der 
TV-Schirm schwarz. Wenn Sie ein Programm haben, das viel 
Rechenzeit benötigt, bei dem Sie aber vorübergehend auf 
eine Bildausgabe verzichten können, dann kann es einen 
Vorteil bringen, ANTIC abzuschalten, weil das System da- 
durch entlastet wird und die andere Aufgabe erheblich 
schneller erledigen kann. 


Wenn Sie mit der Sub-DL in einem größeren Programm eine 
Textzeile wie schon erwähnt einblenden wollen, dann können 
Sie sie auch wieder ausblenden. Sie brauchen dazu nur die 
ersten drei Byte der Standard-Display-List wieder mit 112 
zu füllen, und der Sprung in die Subroutine unterbleibt. 


Das folgende Programm zeigt Ihnen, wie Sie eine GRAPHICS- 
2-Zeile und eine GRAPHICS-1-Zeile oberhalb des Bildschirm- 
fensters unterbringen: 


8 REM DISLTOP2.BI2 

18 GRAPHICS 8:POKE 559,8 

28 RESTORE 60 

38 FOR 1=8 TO 68 

48 READ A:POKE 1536+1,A 

S® NEXT I 

68 DATA 8,08,71,9,6,6,1,0,8 

re DATA 16,17,18,19,28,1439,158,151,152,153,88,81,82,8 
3,84,213,214,215,216,217 

88 DATA 33,34,35,36,37,38,39,48,41,42,97,98,99,188,1® 
1,182,103,184,105,186 

98 DATA 33,34,35,36,37,38,39,408,41,42,97,98,99,108,18 
1,102,183,104,185,106 

208 DL=PEEK(CSS6B) +PEEK(CS561)%*256 

218 POKE DL,1:POKE DL+1,8:POKE DL+2,6 

228 POKE 1543,PEEK(C568)+2:POKE 1544,PEEKCS561):POKE 55 
9,34 


60: Durch das zusätzliche Kommando für eine weitere Zeile 
ist die Sub-DL jetzt um ein Byte länger. Der Zeiger auf die 
Bildschirm-Daten muß deshalb um 1 erhöht werden. Die 
GRAPHICS-2-Zeile verbirgt sich zusammen mit dem LMS in der 
71, des folgen LO- und HI-Byte des Zeigers, eine 6 für eine 
GRAPHICS-1-Zeile und nach dem Rücksprungbefehl der Vektor 
für den Rücksprung, der nun auch ein Byte tiefer abgelegt 
werden muß, d.h. in Zeile 


220: muß der Zeiger auf die reguläre Display-Liste um dieses 
eine Byte tiefer gePOKEt werden. 
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Auf entsprechende Weise kann nun natürlich auch unterhalb 
des gewöhnlichen Grafikfensters ein zweites Fenster improvi- 
siert werden. Dazu wird die DL an ihrem Ende, vor dem 
Rücksprung an ihren Anfang für die Subroutine verlassen: 


@ REM DISLBOT1.BIZ 

18 GRAPHICS 8:POKE 559,8 

28 RESTORE 68 

38 FOR I=8 TO 27 

38 READ A:POKE 1536+1,A 

SB NEXT I 

68 DATA 8,80,71,8,6,1,98,8 

78 DATA 16,17,18,19,28,149,1598,151,152,153,80,81,82,8 
3,84,213,214,215,216,217 

288 DL=PEEK(CSS6BI +PEEKCSS1)X*256 

218 POKE DL+29,1:POKE DL+38,8:POKE DL+31,6:POKE DL+32 
‚65:POKE DL+33,PEEK(568):POKE DL+34,PEEK(S561) 

2208 POKE 1542,PEEK(568)+32:POKE 1543,PEEK(CSS1):POKE 5 
>9,34 


Die gesamte Konstruktion der Sub-DL ist identisch mit der 
bereits beschriebenen Vorgehensweise. Eine Anderung gibt es 
erst in Zeile 


210: Die Sprunganweisung (1) und die beiden Byte für die 
Sprungadresse werden in die Display-Liste vor dem Sprung 
nach Vertical Blank (65) abgelegt. Am Anfang der DL war 
durch die drei Byte für Leerzeilen genügend Platz für die 
Sprunganweisung vorhanden. In dieser Version wird die re- 
guläre DL um drei Byte länger. Der Sprung nach Vertical 
Blank mit dem Sprungziel muß also auch um drei Byte nach 
unten verlegt werden. 


Daraus ergibt sich nun aber ein kleines Problem. Direkt 
hinter der Display-Liste beginnt der Bildschirmspeicher von 
GRAPHICS 0. Und das Betriebssystem hat auch keinen Anlaß, 
daran etwas zu ändern. D.h. die drei zusätzlichen Byte der 
DL werden in die ersten drei Zellen des Bildschirmspeichers 
geschrieben. Die entsprechenden Werte nach dem internen 
Code in ATARI-Standard-Zeichen umgewandelt erscheinen in 
der linken oberen Ecke des Bildschirms. Das ist deshalb 
kein besonderes Problem, weil ein einfacher CLEAR-Befehl 
(CHR$(125)) die unerwünschten Zeichen von der Mattscheibe 
putzt. 


220: Natürlich muß auch der Rücksprung-Vektor aus der 
Subroutine geändert werden. 


Im unteren Bereich des Bildschirms können etwa weitere 20 
Zeilen genutzt werden. Genügend Platz für eine GRAPHICS-2- 
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Zeile oder zwei GRAPHICS-1-Zeilen. Auf diese Weise können 
so zusätzlich zu den gewöhnlichen 192 Zeilen am oberen 
Rand weitere 24, am unteren Rand weitere 20 gefüllt werden. 
Insgesamt werden dann 236 Bildschirmzeilen genutzt. 


Abschließend noch eine Bemerkung zu den Daten, welche die 
Schriftzeichen in die zusätzlichen Zeilen hineinbringen: Die 
Bild-Daten der Sub-DL werden selbstverständlich genauso 
verarbeitet wie Daten aus dem regulären Bildschirmspeicher. 
und diese Daten enthalten die Zeichen, die an der korrespon- 
dierenden Stelle auf der Mattscheibe erscheinen sollen in 
Form des internen Codes. Das gilt für GR.D. Im Anhang 
finden Sie eine Tabelle, aus der Sie den internen Code eines 
Zeichens ablesen können. 


Das gilt aber auch für GR.1I und GR.2. Hier ist jeweils nur 
der halbe Standard-Zeichensatz aufrufbar, entweder die 
Ziffern, Satzzeichen und Großbuchstaben oder aber der Rest 
des Zeichensatzes. Die 256 verfügbaren Zahlenwerte sind so 
verteilt, daß es für jedes der 64 verfügbaren Zeichen vier 
Werte gibt, von denen sich jeder auf ein anderes Farb- 
register bezieht, das entsprechende Zeichen also in wechseln- 
den Farben darstellt. Auch für diesen GRAPHICS-1/2-Code 
finden Sie im Anhang eine übersichtliche Tabelle. 


Diese GRAPHICS-1/2-Codezahlen, die zusammen mit dem COLOR- 
verwendet werden, um in BASIC die Zeichen aufzurufen und 
mit PLOT (und DRAWTO) in das Grafikfenster zu bewegen, 
werden nun zur Ablage im Bildschirmspeicher gleichfalls 
nach dem Muster des internen Codes umgewandelt. Da diese 
Umwandlung zwar ganz systematisch, aber doch unübersicht- 
lich und schwer zu memorieren ist, finden Sie auch für den 
internen GRAPHICS-1/2-Code eine Tabelle im Anhang. 
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3.2 Zeichensatz 


Die Kommunikation zwischen Computer und Benutzer erfolgt 
in Form geschriebener Zeichen. Dem Benutzer steht die 
Tastatur zur Verfügung, über die er Kommandos und Daten 
eingibt. Zur Kontrolle erscheinen die eingegeneben Zeichen 
in der Regel auf dem Bildschirm. Der Output des Rechners 
wird heute ebenfalls meist auf einem Monitor dargestellt. Es 
geht also nicht umhin, der Rechner muß das ABC lernen. 
Und wenn Sie sich mit Ihrem Blechkameraden besser ver- 
stehen wollen, dann sollten Sie wissen, was in seinem 
Inneren vor sich geht, wenn er sich mit Ihnen unterhält. 


Die Probleme fangen damit an, daß die künstliche Intelligenz 
nur zählen kann. Und zwar von O bis 1. Um diesen Schwall 
digitaler Informationen etwas besser in den menschlichen 
Griff zu bekommen, werden die Dualzahlen (0/1) zu Hexa- 
dezimalzahlen (0 bis F) gebündelt. Vier (duale) Bit ergeben 
einen Hex-Wert. 


Heim-Computer arbeiten heute alle mit 8-Bit-Prozessoren, 
d.h. sie können acht Bit gleichzeitig verarbeiten, das sind 
Werte von 00000000 bis 11111111 dual, von 00 bis FF hexa- 
dezimal oder von O bis 255 dezimal. Im ATARI-BASIC werden 
alle Eingaben in dezimaler Form verlangt, so daß der ge- 
samte Komplex der Hexadezimalrechnung hier ausgeklammert 
werden kann. 


Die gängige 8-Bit-Bündelung wird als ein Byte bezeichnet. 
Bei einem 8-Bit-Prozessor ist jedes Datenwort ein Byte groß 
und jeder Speicherplatz kann ein Byte aufnehmen. Die Spei- 
cherzellen sind fortlaufend numeriert. Der im ATARI verwen- 
dete 6502 Mikroprozessor kann Speicherplätze von O0 bis 32676 
verwalten. 


Jede Taste/Tastenkombination des Keyboard ist mit einem 
Zahlenwert von O0 bis 255 gekennzeichnet, belegt also ein 
Byte Information. Der gesamte Zeichensatz ist eine Zuordnung 
aller verfügbaren Zeichen zu einem acht Bit großen Dezimal- 
wert. Und für diese Zuordnung gibt es eine internationale 
Norm, den ASCII-Code. 


Dieser Code sollte einmal im Fernschreibverkehr sicherstellen, 
daß sendende und empfangende Geräte die gleiche (Zeichen-) 
Sprache sprechen. Die Computer-Techniker haben diesen 
Standard übernommen. Allerdings haben sie sich auch ver- 
schiedentlich Abweichungen erlaubt. 


So dienen nämlich die ASCII-Werte 0 bis 31 der Steuerung 
des Druckers. Funktionen wie Zeilenvorschub, Klingelzeichen 
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etc. werden durch diese Werte ausgelöst. Das sind Funkti- 
onen, die der Heim-Computer nicht benötigt. Und weil 
Computer-Techniker notgedrungen (informations-) sparsame 
Menschen sind, werden die ASCII-Werte O0 bis 31 meist in 
irgendeiner anderen Weise genutzt, meist für sog. Block- 
oder Pseudo-Grafik. 


Während der ASCII-Code 7 die Signalglocke des Druckers er- 
klingen läßt, schreibt CHR$(7), also der in ein Zeichen um- 
gewandelte Dezimalwert 7 beim ATARI eine diagonale Linie 
auf den Bildschirm. Stolz haben die Konstrukteure ihren 
Zeichensatz ATASCII-Code getauft. Klingt ja auch ganz toll. 
Die Werte O0 bis 31 stellen Grafikzeichen dar, 32 ist das 
Leerzeichen, es folgen Satzzeichen, Ziffern, Großbuchstaben 
und Kleinbuchstaben. Eine vollständige Übersicht finden Sie 
im Anhang. 


Insgesamt stehen 128 verschiedene Zeichen zur Verfügung. 
Dazu zählen auch solche Funktionen wie die Cursor-Steuerung 
oder das Bildschirm-Löschen. Die Zeichen des Zeichensatzes 
haben also nur sieben Bit Information. Die zweite Hälfte des 
Zeichensatzes (ATASCII 128 bis 255) ist mit dem ersten 
identisch, die Zeichen werden lediglich invertiert dargestellt, 
also dunkel auf hellem Grund. Das achte Bit bestimmt, ob 
ein Zeichen normal oder invertiert erscheinen soll. Der Com- 
puter hat aber nur 128 Zeichen zu lernen. 


3.2.1 Bit-Muster 


Der Rechner selbst würde sich in seiner zahlen-asketischen 
Bescheidenheit mit den ATASCII-Werten zufrieden geben, wenn 
aber Schriftzeichen auf dem Bildschirm erscheinen sollen, 
dann müssen der Maschine deren Muster eingegeben werden. 
Auf der Mattscheine erscheinen die Zeichen in einer Schreib- 
position von acht mal acht Bildpunkten. ATARI nutzt die 
Bildröhre in einer Breite von 320 Punkten und einer Höhe 
von 192 Zeilen. Daraus errechnet sich, daß bei der Text- 
darstellung 40 Zeichen nebeneinander in 24 Zeilen unterein- 
ander dargestellt werden können. 


Und jetzt bringen wir dem Rechner das Schreiben bei: 


Ein Byte enthält acht digitale Informationen (Bit). Ein Bild- 
punkt kann leuchten oder nicht leuchten, eingeschaltet oder 
nicht eingeschaltet sein, hat also ebenfalls einen Infor- 
mationswert von einem Bit. Ein Byte kann demnach die In- 
formationen für acht Bildpunkte (pixel) aufnehmen. Und das 
geht so: 
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Bit 


Dezinalwert 128 64 32 16 


Ein Byte setzt sich aus acht Binärstellen von 2° (LSB, least 
significant bit, niederwertiges Bit) bis 2°’ (MSB, most signi- 
ficant bit, höchstwertiges Bit) zusammen. Jedes dieser acht 
Bits (flags) kann gesetzt (eingeschaltet = 1) oder nicht ge- 
setzt (ausgeschaltet = 0) sein. Der Zustand eines Byte könnte 
so aussehen: 


Bit 
102 OGGEondn 
Dezinaluert 128 64 32 


Diese Dualwerte des Byte zu einem Dezimalwert umgerechnet 
ergeben 0+64+32+0+0+4+2+0=102. Um umgekehrt, wird in eine 
Speicherzelle der Wert 102 geschrieben (POKE n,102), dann 
werden dort die Bits entsprechend der Abbildung gesetzt. 


Auf dem Bildschirm wird jedes Bit in einen Bildpunkt umge- 
setzt. Der Dezimalwert 102 verursacht dieses Bitmuster auf 
dem Bildschirm: 


Bit 
102 | | 
Dezimaluert 12864 2168 ı 2 





Da der Monitor zeilenweise arbeitet, werden die Bildpunkte 
auch zeilenweise zu Bytes zusammengefaßt. Da eine Schreib- 
position auf dem Bildschirm acht Zeilen hoch ist, besteht 


jedes Zeichen aus acht Byte: 
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128 64 2 1 8 4 2 1 





Ein bestimmter Teil im oberen Bereich des Speichers enthält 
die Daten für den ATARI-Standard-Zeichensatz. Es handelt 
sich um einen ROM-Bereich, die hier abgelegten Daten können 
also nur gelesen, nicht aber verändert werden. 


Der Zeichensatz beginnt mit der Adresse 57344. Dort liegt 
das 0O-te Byte des 0-ten Zeichens. In den folgenden Adressen 
liegen die übrigen sieben Byte des 0-ten Zeichens. In der 
nächsten Adresse findet sich dann das 0-te Byte des ersten 
Zeichens usf. bis zum siebten Byte des 127. Zeichens. Da 
die Daten von 128 Zeichen gespeichert sind und jedes Zeichen 
acht Byte beelgt, benötigt der Zeichensatz genau 1 kByte 
(Kilo-Byte = 1024 Byte) Speicher und endet somit in der 
Adresse 58368. 


Wenn die Daten eines bestimmten Zeichens gesucht werden, 
dann läßt sich leicht ausrechen, in welchen Speicherzellen 
sie liegen, denn der ATASCII-Wert gibt die Reihenfolge der 
Zeichen an, jedes Zeichen ist acht Byte lang, also muß der 
ATASCI I-Wert mit 8 multipliziert werden, um die erste Adres- 
se des gesuchten Zeichens zu finden. 


Einen Moment mal! So einfach geht das nun auch wieder 
nicht. Die Daten des Zeichensatzes liegen nämlich nicht in 
der Reihenfolge des ATASCII-Codes im Speicher, sondern sind 
in drei Blöcken versetzt abgelegt. Diese Reihenfolge wird 
interner Code genannt. Hier eine Tabelle zur Umrechnung: 
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ATASCII-Werte umwandeln in internen Code 


ATASCIHI 0 bis 31 und 128 bis 159 +64 
ATASCII 32 bis 95 und 160 bis 223 -32 
ATASCII 96 bis 127 und 224 bis 255 identisch 


Internen Code umwandeln in ATASCII-Werte 


Intern 0 bis 63 und 128 bis 191 +32 
Intern 64 bis 95 und 192 bis 223 -64 
Intern 96 bis 127 und 224 bis 255 identisch 


Da die Werte des internen Codes angeben, in welcher Ent- 
fernung von der Start-Adresse des Zeichensatzes die Daten 
des entsprechenden Zeichens liegen, nennt man diesen Wert 
auch Offset. Um die Daten des Zeichens n zu finden, muß 
der Inhalt der Adresse 57344+n*8 und der folgenden sieben 
Speicherzellen gelesen werden: 


FOR I=8 TO 7:PEEKCS?7344+0FFX8+I):NEXT I 


Die Daten für die zweite Hälfte des Zeichensatzes brauchen 
nicht extra gespeichert zu werden, da sie sich ganz einfach 
aus den vorhandenen Daten ermitteln lassen. Wird nämlich 
das Bit-Muster invertiert, aus O0-en werden I-en, aus I-en 
werden 0-en, ist der Dezimalwert des invertierten Bit-Musters 
gleich der Differenz von 255 zum Dezimalwert des normalen 
Bit-Musters: 








Bit 
124 
Dezinalwert 128 64 32 168 44 2 1 
Bit 654302109 
Dezinaluert 12864 2 168 4 21 


Mit dem folgenden Programm werden die Zeichensatz-Daten 
aus dem Speicher gelesen und dann in vergrößerter Form 
auf dem Bildschirm dargestellt. Gleichzeitig erscheinen im 
Textfenster die acht Daten-Byte des abgebildeten Zeichens: 


8 REM BITMSTR.BI2 
18 GRAPHICS 3:DIM F(C7,7):POKE 765,2:POKE 712,8:POKE 7 
18,8:POKE 789,58:POKE 788,248:POKE 752,1 
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28 COLOR 2:PLOT 15,19:DRAUTO 15,4:DRAWTO 8,4:POSITION 
8,19:XIO 18,86,8,0,”5:” 

38 COLOR 2:PLOT 39,19:DRAUTO 39,4:DRAWUTO 24,4:POSITIO 

N 24,19:X1I0 18,#86,0,8,”5:” 

48 COLOR 2:PLOT 23,7: DRAUTO 23,4:DRAUTO 16,4:POSITION 
16,7:X1I0 18,#6,0,8,”S: 

58 COLOR 2:PLOT 23,19: DRAUTO 23,16:DRAWTO 16,16: POSIT 
ION 16,19:X10 18,#6,8,8,”S: 

68 POKE 765,3:COLOR 3:PLOT 23,15: DRAUTO 23,8:DRAWTO 1 

6,8:POSITION 16,15:XIO 18,#6,0,0,”S:” 

188 FOR I=8 TO 7:FOR J=8 TO 7:FCI,J)=3:NEXT J:NEXT I 
118 OPEN #1,23,8,”K:”:GET #1,2:CLOSE #1 

128 IF 2<128 THEN POKE 718,8:POKE 708,248:P=® 

138 IF 2>127 THEN Z=2-128:POKE 718,248:POKE 788,0:P=1 
148 IF 2<32 THEN Z=2+64:GOTO 288 

158 IF 2Z<96 THEN Z=2-32:GOTO 288 

288 FOR 1=8 TO 7 

218 A=PEEK(57344+1+2%*8) 

228 IF A>127 THEN A=A-128:F(8,1)=1 

238 IF A>63 THEN A=A-64:F(1,DD=1 

238 IF A>31 THEN A=A-32:F(2,1)=1 

258 IF A>15 THEN A=A-16:F(3,I)>=1 

268 IF A>7 THEN A=A-8:FC(4,12=1 

278 IF A>3 THEN A=A-2:F(5,DD=1 

288 IF A>1 THEN A=A-2:F(6,1)>=1 

298 IF A>8 THEN F(7,ID=1 

388 NEXT I 

318 FOR J=8 TO 7:FOR I=8 TO 7:COLOR FCI1,J2:PLOT I+16, 

J+8:NEXT I:NEXT J 

328 IF P=8 THEN ? :FOR 1=8 TO 6:7? PEEK(CS57344+1+2x8);” 
‚”;,:NEXT 1:7? PEEK(57344+7+2X8);,” 

338 IF P=1 THEN ? :FOR 1=8 TO 6:7? 255-PEEK(57344+1+2% 

8);,”,”,:NEXT 1:7? 255-PEEK(57344+7+2%8);, ” 


358 GOTO 188 


10: GRAPHICS 3 ermöglicht die vergrößerte Darstellung der 
Zeichen ohne großen Aufwand. Jedes Bit erzeugt einen Grafik- 
Punkt, der acht Bildpunkte breit und acht Bildschirmzeilen 
hoch ist. 


20 bis 60: bauen die Bildschirmgrafik auf. 
100: setzt die doppelt-indizierte Variable auf 3. 


110: fragt die Tastatur ab und liest den ATASCII-Wert der 
gedrückten Taste in die Variable Z ein. 
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120: Wenn der Wert Z kleiner als 128 ist, wurde ein Zeichen 
in normaler Darstellung aufgerufen, entsprechend werden die 
Farbwerte gePOKEt und in der Variablen P wird diese Tat- 
sache protokolliert. 


130: Wurde ein inverses Zeichen aufgerufen (Z größer 127), 
dann werden die Farbwerte genau umgekehrt gePOKEt. Da- 
durch entsteht der inverse Eindruck. Auch dieser Sachverhalt 
wird in P aufgeschrieben. 


140 und 150: wandeln den ATASCII-Wert in internen Code um. 


200 bis 300: holen aus dem Speicherbereich des Zeichensatzes 
die acht Daten-Byte heraus, die das aufgerufene Zeichen 
darstellen. Jedes dieser Bytes wird in seine Bits aufgespalten 
und in der Variablen F(n,n) aufbewahrt. Nach acht Durch- 
läufen der FOR-NEXT-Schleife befinden sich in dieser doppelt- 
indizierten Variablen acht mal acht Bit Information. 


310: wandelt jedes einzelne Bit in einen Grafikpunkt um. Der 
Wert des Bit (0 oder 1) bestimmt den COLOR-Wert für den 
Grafikpunkt, die Positionen für den PLOT ergeben sich aus 
der Stellung des Bit innerhalb des Gesamtzeichens. 


320: Gleichzeitig sollen die acht Daten-Byte des Zeichens im 
Textfenster erscheinen. Wenn P gleich O ist (normale Dar- 
stellung), dann können die im Zeichensatz gefundenen Daten 
direkt ins Textfenster gePRINTet werden. 


330: Wenn inverse Darstellung vorliegt (P=1), dann wird der 
inverse Wert (255 minus gefundenem Dezimalwert) ins Text- 
fenster gedruckt. 


Mit diesem Wissen über die Speicherung und Darstellung von 
Zeichen liegt es nahe, einen eigenen Zeichensatz zu gestal- 
ten. Das macht Spaß, wenn man die ewig gleiche ATARI- 
Schrift leid ist und etwas Abwechselung sucht (oder wenn 
man mit deutschen Umlauten fremdgehen will oder gar mit 
einem runden 'ß'!) und ist sogar nützlich, wenn man sich 
mathematische, elektronische, chemische oder sonstige Sym- 
bole zurechtlegt. 


Die Gestaltung des eigenen Zeichensatzes ist pure Fleiß- 
arbeit: Bitmuster entwerfen und die Dezimalwerte der Byte 
ausrechnen. Nur mit dem Abspeichern der Daten ist das so 
eine Sache. Der Standard-Zeichensatz liegt ja wohl behütet 
im ROM-Bereich. Deshalb hier erst einmal als Kostprobe 
einen frei definierten Zeichensatz in DATA-Zeilen: 


8 REM ARCHIV.DAT 
32723 DATA 08,24,24,24,23,08,24,0,8,102,102,102,8,0,8,08 
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‚8,36,126,36,72,252,72,0 

32724 DATA 16,60,80,60,22,86,60,16,0,102,108,24,48,10 
2,70,0,16,60,80,60,80,80,60,16 

32725 DATA 0,24,24,24,0,0,0,0,6,12,24,24,24,24,12,6,9 
6,48,24,24,24,24,48,96 

32726 DATA 8,36,24,126,24,36,8,0,0,24,24,126,24,24,0, 
0,0,0,0,0,0,24,24,48 

32727 DATA 8,8,0,126,0,0,09,0,0,08,0,0,0,24,24,9,0,6,12 
‚24,48,96,64,8 

32728 DATA 8,60,102,106,82,102,60,0,0,24,56,24,24,24, 
24,24,56,12,12,24,48,96,124,0 

32729 DATA 8,124,24,48,12,12,24,112,0,96,96,108,108,1 
26,12,12,0,62,0,60,6,6,12,56 

32730 DATA 28,48,96,108,118,102,60,0,0,62,6,12,24,24, 
24,24,0,102,102,60,102,102,102,68 

32731 DATA 0,60,102,102,54,12,24,48,0,0,24,24,0,24,24 
‚8,8,0,24,24,0,24,24,48 

32732 DATA 6,12,24,48,24,12,6,0,09,09,126,9,0,126,9,0,9 
6,48,24,12,24,48,96,0 

32733 DATA 8,60,102,12,24,0,24,0,60,98,94,82,94,96,62 
‚8,08,24,60,36,1902,66,66,08 

32734 DATA 8,120,12,120,12,12,129,0,0,60,96,96,96,96, 
60,8,8,120,12,6,6,12,120,0 

32735 DATA 8,124,08,120,96,96,124,8,0,124,0,120,96,96, 
96,0,9,60,96,96,98,98,62,08 

32736 DATA 8,12,12,68,12,12,12,0,90,24,0,24,24,24,24,0 
‚8,24,24,24,24,24,112,08 

32737 DATA 98,12,24,112,112,24,12,0,0,48,48,48,48,48,6 
0,0,8,124,198,214,214,214,198,0 

32738 DATA 8,690,102,182,102,102,182,0,0,690,102,192,18 
2,182,36,0,8,120,12,12,120,96,96,® 

32739 DATA 8,60,1902,70,118,108,54,3,8,120,12,12,112,2 
4,12,80,9,96,56,12,6,70,60,0 

327408 DATA 8,60,24,24,24,24,24,0,8,102,192,102,102,10 
2,60,0,9,108,108,108,108,56,16,0® 

32741 DATA 8,198,198,214,214,214,124,9,0,102,38,28,56 
‚1088,102,08,9,70,1190,44,24,24,24,0 

32742 DATA 8,124,12,24,48,96,124,0,30,24,24,24,24,24, 
24,308,0,64,96,48,24,12,6,8 | 

32743 DATA 129,24,24,24,24,24,24,120,0,8,28,54,99,0,0 
‚8,98,08,8,255,0,0,0,8 

32744 DATA 128,128,192,64,96,48,28,7,66,24,60,36,102, 
66,66,98,02,124,0,56,90,9,124,0 

32745 DATA 8,124,198,186,162,186,198,124,1,58,1990,106 
‚86,38,92,128,0,0,56,40,56,0,0,0 

32746 DATA 1790,85,1790,85,170,85,170,85,284,204,51,51, 
204,204,51,51,240,240,249,2480,15,15,15,15 
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32747 DATA 8,8,0,16,56,16,8,8,36,0,1802,102,182,182,60 
‚8,7,28,48,96,63,192,128,128 

327438 DATA 36,0,60,102,182,182,36,8,0,0,38,182,102,10 
8,64,64,08,8,254,108,108,108,108,0 

32739 DATA 66,24,102,102,182,102,36,0,8,124,254,254,2 
54,254,254,124,0,254,130,138,138,130,138,254 

32758 DATA 8,255,255,8,8,255,255,80,56,108,103,1808,102 
‚182,1808,96,182,182,102,102,1802,182,1082,182 

32751 DATA 182,0,102,102,102,182,60,0,8,680,183,104,10 
4,184,60,8,8,124,68,68,68,124,0,0 

32752 DATA 98,126,34,16,48,98,126,0,08,8,56,123,124,124 
‚565,8,36,0,608,6,54,182,62,0 

32753 DATA 1280,96,128,96,126,24,30,0,0,24,60,126,219, 
24,24,23,0,24,24,24,219,126,60,24 

32754 DATA 8,24,48,96,254,96,48,24,48,24,12,254,12,24 
‚438,8,1,1,3,2,6,12,56,224 

32755 DATA 8,9,60,6,54,102,62,0,8,96,96,128,12,12,128 
‚8,8,08,56,96,96,96,56,0 

32756 DATA 8,12,12,60,96,96,680,0,80,0,60,182,1808,96,60 
‚8,8,28,48,56,48,48,48,0 

32757 DATA 8,8,62,102,118,54,78,608,8,96,96,184,108,108 
8,188,0,8,0,24,8,24,24,24,0 

32758 DATA 8,0,24,8,24,24,24,112,8,96,96,116,120,108, 
182,0,0,24,24,24,24,24,24,0 

32759 DATA 8,8,124,254,214,214,198,80,8,8,60,102,102,1 
02,102,8,08,0,68,182,102,182,36,® 

32768 DATA 8,8,60,6,6,60,48,48,0,0,60,96,96,60,12,12, 
8,0,28,48,48,48,48,0 

32761 DATA 8,8,96,680,6,6,124,0,0,24,60,24,24,24,12,0, 
8,8,182,182,182,102,60,® 

32762 DATA 8,0,108,188,108,56,16,80,0,0,198,214,214,21 
4,124,0,0,0,102,44,24,52,102,0 

32763 DATA 8,8,102,102,102,44,24,48,0,0,124,24,48,96, 
124,0,224,56,12,6,2,3,1,1 

32764 DATA 24,24,24,24,24,24,24,24,0,126,120,124,110, 
182,6,0,8,23,56,128,56,24,8,0 

32765 DATA 16,24,28,30,28,24,16,0 


Und so sehen die neuen Zeichen aus: 


N Em Een Em En 3 CL > EFF U 
iu: TE Ze 1 Bas ar > Be FE | By 4 i 3 xrıanon 
= = po 1 vd oo »” a RR >» Tr u u u 
ze I EEE tt 5 = > Fe" er Un I 0 He 
ı eh mE. Ja > << 2 ee Fr 9 
I Hr 2 ne h ii ik ii ana0n 0 
a» 1 2 3 u 5 6 7 3 Kr > tt um ww 
HH >» .: F % =.» 7 “nn z Ir 1 > 


70 


Wie diese Daten in den Speicher des Computers und von dort 
auf den Monitor kommen, werden wir noch sehen. Mit dem 
folgenden Programm wurde der Ausdruck der neu definierten 
Zeichen auf einem Matrix-Drucker erledigt: 


8 REM DEFCHRPR.BI2 

18 DIM B(7) 

28 FOR I=8 TO 7:READ M:BCI)=NM:NEXT I 

38 OPEN #1,8,8,”P:” 

48 PUT #1,27:PUT #1,75:PUT #1,8:PUT #1,8 
58 FOR I=7 TO 8 STEP -1 

68 PUT #1,B(1l) 

78 NEXT I 

80 CLOSE #1 

98 GOTO 28 


Das Programm verarbeitet die Daten als Dot-Grafik. Das be- 
deutet, daß die Nadeln des Druckkopfes einzeln angesprochen 
werden, um bestimmte Punktmuster hervorzubringen. Wie das 
genau geschieht, wird in Kapitel 4 erörtert. 


Im normalen Schreibbetrieb empfängt der Drucker die 
(ATJASCII-Werte und wandelt sie in Zeichen um. Welche 
Punktmuster ein Zeichen darstellen, bestimmt dabei sein 
eigener Zeichensatz. Die Schrift eines Druckers sieht also 


immer anders aus als die Zeichen, die der Rechner auf dem 
Bildschirm erzeugt. 


Deshalb ist kein Drucker von vorne herein in der Lage, z.B. 
den vollständigen ATARI-Zeichensatz inkl. Pseudo-Grafik- 
zeichen auf das Papier zu bringen. 


Bei der Dot-Grafik wird ein Punktraster gedruckt, der mit 
der Bildauflösung des Monitors vergleichbar ist. Der wesent- 
liche Unterschied besteht darin, daß die Drucknadeln in 
einer Spalte untereinander angeordnet sind, also in jedem 
Arbeitsschritt acht Punkte untereinander drucken oder nicht 
drucken und deswegen die Bit-Muster für den Drucker auch 
spaltenweise zu Dezimalwerten verrechnet werden, während 
die Grafikdaten im Rechner in der Zeile Byte-weise zusam- 
mengefaßt werden: 


20: Liest acht Daten-Byte aus den DATA-Zeilen. 
30: eröffnet einen Schreib-Kanal zum Drucker. 


40: Stellt den Drucker auf Dot-Grafik ein und bereitet ihn 
auf acht Dot-Grafik-Daten vor. Dieses Kommando ist für den 
radix-10 von star geschrieben. Wenn Sie einen anderen 
Drucker verwenden, müssen Sie diese Zeile evt. entsprechend 
umschreiben, denn gerade bei der Dot-Grafik unterscheiden 
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sich die Formate der Kommandos recht stark. Auch hierüber 
wird in Kapitel 4 ausführlich gesprochen. 


50 bis 70: senden acht Byte an den Drucker, die dort in 
Grafikpunkte (dot pattern) umgesetzt gedruckt werden. 


3.2.2 Neue Zeichensätze 


Nun ist es allerdings recht mühsam, einen kompletten Zei- 
chensatz manuell zu ermitteln, denn neben der eigentlichen 
Gestaltungsarbeit sind sehr viele (exakt 1024) Werte zu 
berechnen. Und für solche Routinearbeiten ist doch der 
Computer geschaffen worden. 


Der folgende Zeichensatz-Generator übernimmt den unange- 
nehmsten Teil der Arbeit, und Sie können sich weitgehend 
dem kreativen Aspekt zuwenden. Es empfiehlt sich übrigens, 
eine Tabelle mit dem ATARI-Zeichensatz und den Werten 
von O0 bis 127 (in der Reihenfolge des internen Codes!) an- 
zufertigen und darin die neu entworfenen Zeichen zu skizzie- 
ren. So haben Sie bei der Entwurfsarbeit immer einen Über- 
blick, welche Zeichen schon umgestaltet sind, und Sie können 
später leicht feststellen, welche Taste Sie drücken müssen, 
um ein neu definiertes Zeichen aufzurufen: 


8 REM TYPGENE.BI2 

18 GOSUB 1888 

28 GOSUB 2888 

38 IF PEEK(CS53279)<>5 THEN SOUND 8,136,12,2:GOTO 38 
40 SOUND 8,8,8,8:GOSUB 3888 

188 SOUND 8,8,8,8:SOUND 1,80,80,8:N=08 

118 OPEN #1,4,8,”K:”:GET #1,BY:SOUND 8,1280,14,2 

128 IF BY=83 THEN GOSUB 58208 

138 IF BY=76 THEN SOUND 8,8,8,8:CLOSE #1:GOSUB 20498 
158 GET #1,BI:SOUND 1,148,14,3:CLOSE #1 

168 IF BY<65 THEN 180 

178 IF BY>72 THEN 188 

188 IF BI<48 THEN 1088 

198 IF BI>S5 THEN 188 

208 X=78-B1:Y=BY-58:P=49000080+X+Yx48:D=PEEK(CP) 

218 IF D=8 THEN POKE P,128 

228 IF D=128 THEN POKE P,® 

238 FOR I=8 TO 7:N=N+CPEEK(48022+Yx48-I)/128)x2”71I:NEX 
TI 


248 POSITION 26,Y:? N;”" *":ScCY-7)=N:GOTO 198 
1888 ? CHR$(C125):POKE 718,114:POKE 82,8:POKE 752,1:? 
7" ZEICHENSATZ-GENERATOR” 
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1818 
? 

18208 
1838 
1848 
1858 
1868 
1870 
1888 


$="Dl: 


1898 
1188 
” 

1118 
? 

1120 
1138 
11408 
1158 
1168 
1178 
12088 
1188 


1198 
1288 
” 

12108 
? 

1228 
12308 
12408 
1258 
12608 


1,11:7.” 


1270 
1388 


”" SIE KOENNEN 128 ZEICHEN NEU GESTALTEN”:? :? 

” TASTEN SIE GLEICHZEITIG <SELECT> UND”:? 

” DAS NEU ZU GESTALTENDE ZEICHEN”:? :7? 

DAS VERAENDERTE ZEICHEN SPEICHERN SIE”:? 

” MIT TASTE <S>” 

:2.:2.:7 :7? ” WEITER MIT <START>” 

DIM D$C12),FC7,73,5C7),DAT$SC1ISI,C$C1),UC127):DAT 
”:C$=CHR$(C155) 

IF PEEK(C53279)<>6 THEN GOTO 1898 

? CHR$(125)3:?7 :?2 ” ZEICHENSATZ-GENERATOR 


VAN N A 


7? ” ”.n2 
” DIE DATEN DER UMGESTALTETETEN ZEICHEN”: ? 

” WERDEN ALS BASIC-DATA-ZEILEN AUF DIE”:? 

” DISKETTE IN LAUFVUERK 1 GESCHRIEBEN”:? :? :? 
?.” GEBEN SIE EINEN NAMEN FUER DIE DATEI”:? 
CLOSE #2:TRAP 1188:POSITION 8,17: INPUT D$ 
DATSCLENCDAT$SC1,3))I+1)=D$:0OPEN #2,8,8,DAT$:GOTO 
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POSITION 1,15:? 
” 

POSITION 1,17:? ” 
? CHR$(125):? :? " 


">DATEINAME FEHLERHAFT< 


”":GOTO 11568 
ZEICHENSATZ-GENERATOR 


En aiEEE en CAD (EEE in dEEER (iin GiHEE> GEMdn GEHE (ine (ED Gebe Gum LEBE dp GEHE aim GAED mine LEE sipE: LED WERD sAMDEn iin iin Amin ‚NEM dumme. ANNE MEGNEM dm SEM» sinn GENE mim Gumn ammnn 


? ” GEBEN SIE DIE NUMMER FUER DIE ERSTE”:? 
2?” BASIC-DATA-ZEILE”:? 

TRAP 1268 

POSITION 1,11:I1NPUT ZN:GOTO 1278 
POSITION 1,9:7? ">FEHLEINGABE< 
”:GOTO 1248 

IF ZN>32639 THEN GOTO 1268 
POSITION 1,15:7 "GEBEN SIE DIE SCHRITTWUEITE FUER 


”: POSITION 


DIE”:? 


1318 
1320 
1338 
13408 


N 1,19:? ” 


13508 
20088 


2818 POSITION 15,2:? ” 


2820 


2?” ZEILENNUMMERN” 

TRAP 1348 

POSITION 1,19: INPUT SW:GOTO 1358 
POSITION 1,17:? ”>FEHLEINGABE< 
”:GOTO 1328 

FOR I=8 TO 127:UCI)=1I:NEXT I:RETURN 
? CHR$C125):POKE 718,0 

BIT# ” 
"76543218” 


”:POSITIO 


POSITION 15,4:? 
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2838 POSITION 14,6:7 7 mm 

2048 POSITION 12,7:? "AA ı” 

2858 POSITION 12,8:? "B I 1” 

2868 POSITION 18,9:? "BC I 1” 

2878 POSITION 18,180:? "Y DI 1” 

2888 POSITION 18,11:? "TE I 1” 

2898 POSITION 18,12:? "E FI 1” 

2188 POSITION 12,13:? ”G I 1” 

2118 POSITION 12,14:? ”’H {| ” 

2128 POSITION 14,15:7 I kmmmnmmmmmmmmumd ' 

2138 IF BY=76 THEN FOR 1=8 TO 7:SCI)=8:NEXT I:POP :GO 
SUB 3258 

2148 RETURN 

3888 OPEN #1,4,8,”K:”:GET #1,2:CLOSE #1 

3818 IF Z>127 THEN Z=2-128 

3828 IF Z<32 THEN 2=2+64:GOTO 3848 

3838 IF Z2<96 THEN 2=2-32 

3848 FOR 1=8 TO 7:FOR J=8 TO 7:FCI,J)=8:NEXT J:NEXT I 
3858 FOR I=8 TO 7: A=PEEKC57344+1+2%8):SCI)=A 

3868 IF A>127 THEN A=A-128:F(8,1)=1 

30878 IF A>63 THEN A=A-64:F(1,I)=1 

3888 IF A>31 THEN A=A-32:FC(2,I)=1 

3898 IF A>15 THEN A=A-16:F(C3,I)=1 

3188 IF A>7 THEN A=A-8:F(4,1I)=1 

3118 IF A>3 THEN A=A-4:FC(5,1D)=1 

3128 IF A>1 THEN A=A-2:F(6,1I)=1 

3138 IF A>®B THEN F(C7,ID=1 

3148 NEXT I 

32808 FOR J=8 TO 7 

3218 FOR I=8 TO 7 

3228 IF FCI1,J)=1 THEN POSITION 15+1,7+J:? CHR$(C1608) 
3238 NEXT I 

3248 NEXT J | 

3258 FOR 1=8 TO 7:POSITION 26,7+1:? SCI);” ":NEXT I 
3268 IF BY=76 THEN POP :GOTO 1088 

3278 RETURN 

>888 SOUND 8,18,6,2:CLOSE #1 

S818 Z2=ZN+ZxSU 

828 7 #2;,22;,” DATA ”";5(0);,”,”";5C1);,”,”7,S5C2);,”",”:5(3) 
;",":5C04),”,”755(5);”,”7:5(6);”",”r;SC7);CH$ 

5838 SOUND 8,14,6,2:FOR I=8 TO 127 

5848 IF UCI)=Z THEN V=V+1:UCI)=-1 

5858 NEXT I 

5868 IF V=128 THEN POP :CLOSE #2:G0OTO 6888 

5878 SOUND 8,8,8,8:POP :GOTO 28 

5888 ? CHR$(C125):?7 :?7 ” ZEICHENSATZ-GENERATOR 
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58818 7? ” ”.7 


2 


6028 ? ” ALLE 128 ZEICHEN SIND ERFASST”:? 

688308 ? ” SIE FINDEN DIE DATEI AUF DER DISKETTE”:? 
6848 ? ” MIT: LIST”;CHR$C34),;,DAT$;,CHR$C34):?7 :? :? 
6858 ? ” WOLLEN SIE NOCH EINEN ZEICHENSATZ”:? 


6068 ? ” GESTALTEN? <I> / <N>” 

6878 OPEN #1,4,8,”K:”:GET #1,T:CLOSE #1 
60888 IF T=74 THEN 18 

6898 IF T=78 THEN ? CHR$C125SI:END 

6188 GOTO 6078 


10: Das Programm ist komplett in BASIC geschrieben. Um es 
wenigstens etwas flinker zu machen, stehen die inaktiven 
Programmteile in den tieferen Zeilen. Die hier angesprungene 
Subroutine bringt den Vorspann auf die Scheibe. 


1000 bis 1070: erklären das Programm. 


1080: Die vielen DIMensionierungen benötigen etwas Zeit. Da 
der Benutzer erst einmal den Bildschirminhalt lesen wird, 
liegen sie an dieser Stelle im Programm. D.h. während der 
Benutzer liest, arbeitet der Rechner weiter. Falls die START- 
Taste gedrückt wird, bevor die DIMensionierungen erledigt 
sind, tritt eine kleine Verzögerung auf, bis der nächste 
Bildschirminhalt erscheint. 


1090: Abfrage der START-Taste. 
1100 bis 1150: Weitere Erläuterungen zum Programm. 


1160: Der Benutzer soll jetzt einen Namen für die Datei ein- 
geben, in der die Daten des zu gestaltenden Zeichensatzes 
erfaßt werden. Weil eine Benutzer-Eingabe falsch sein kann, 
wird die TRAP-Falle aufgestellt. 


1170: Mit dem eingegebenen Dateinamen wird ein Schreib- 
Kanal zum Diskettenlaufwerk 1 eröffnet. Wurde der Dateiname 
in einer nicht zulässigen Form eingegeben, führt der OPEN- 
Befehl zu einem ERROR-, der durch den TRAP zur Zeile 1180 
verzweigt. 


1200: Auf der nächsten Bildschirmseite fragt das Programm 
nach einer Zeilennummer für die erste DATA-Zeile, in der 
die neuen Zeichensatz-Bytes aufgehoben und in das benannte 
File geschrieben werden. 


1300: Außerdem wird danach gefragt, um welchen Wert die 
folgenden Zeilennummern steigen sollen. (Um es nicht zu 
vergessen, sei hier schon erwähnt, daß Sie sinnvollerweise 
als erste Zeilennummer 32637 und als Schrittweite I eingeben. 
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Sie werden schon noch erfahren, warum.) 


1350: Schnell noch eine DIMensionierung, bevor es mit RETURN 
zurückgeht zu Zeile 


20: Aber hier wird sogleich das nächste Unterprogramm an- 
gesprungen. 


2000 bis 2120: bauen die Bildschirm-Grafik auf. 


2130: ist nur von Interesse, wenn irgendwann einmal die 
Taste L gedrückt werden wird (davon später). 


2140: Zurück nach Zeile 


30: Hier erklingt ein Kontrollton. Erst wenn in der Adresse 
53279 der Wert 5 steht, also wenn die Taste SELECT gedrückt 
wurde, gelangt das Programm aus dieser Zeile heraus und in 


40: wird der Ton ausgeschaltet und nach 3000 gesprungen. 
3000: Die Tastatur wird abgefragt. 


3010: Falls der Benutzer ein inverses Zeichen aufrufen sollte, 
wird hier der Wert 128 abgezogen, denn inverse Zeichen 
gibt es im Zeichensatz bekanmntlich nicht. 


3020 und 3030: Die doppelt-indizierte Variable wird auf O0 
gesetzt. 


3050 bis 3140: Die acht Daten-Byte des aufgerufenen Zeichens 
werden aus dem Standard-Zeichensatz gelesen. In der Vari- 
ablen S({n) wird der Dezimalwert des Byte vermerkt, dann 
wird es in seine Bits aufgespalten. 


3200 bis 3240: Die acht mal acht Bit aus F(n,n) stellen das 
Zeichen auf dem Bildschirm dar. Ist ein Bit 1, wird ein in- 
verses Leerzeichen (CHR$(160)) auf den Bildschirm gebracht. 
Das Bit-Muster des aufgerufenen Zeichens wird durch Hinter- 
grund (schwarz) und ausgefüllte Schreibstellen (weiß) dar- 
gestellt. 


3250: schreibt die Dezimalwerte der einzelnen Byte rechts 
neben die Grafik. 


3270: führt zurück zu 


100: wo erst einmal die Tongeneratoren 0 und 1 abgeschaltet 
werden. 


110: eröffnet einen Lese-Kanal zur Tastatur. Der Wert der 
gedrückten Taste wird gelesen und ein Kontrolliton erklingt. 


120: Falls die Taste S gedrückt wurde, werden die Daten- 
Byte des gerade auf dem Bildschirm-Display sichtbaren Zei- 
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chens als DATA-Zeile in das bereits benannte File geschrie- 
ben. Das geschieht in der Subroutine bei 5000. 


130: Wenn die Taste L gedrückt wurde, wird das im Display 
gezeigte Zeichen gelöscht. Alle acht Byte werden auf O0 ge- 
setzt. Dieses Kommando löst einige gewagte Sprünge aus. 
Zuerst geht es nach 2040. Dort wird das leere Display auf 
die Mattscheibe gePRINTet und die acht Byte werden auf O 
gesetzt. In 2130 wird die Subroutine verlassen. Der POP- 
Befehl sorgt dafür, daß es trotzdem kein Durcheinander in 
der CPU gibt. Es geht dann weiter in 3250, wo die neuen 
Werte der acht Byte, die gerade auf O0 gesetzt wurden, neben 
das Display auf den Bildschirm geschrieben werden. 3260 
führt wieder mit POP aus der Subroutine heraus und nach 
100. Der Vorgang 'Löschen' ist beendet. 


150: Wenn weder L noch S angeordnet wurde, dann wird jetzt 
eine zweite Eingabe erwartet. Beide Eingaben zusammen be- 
zeichnen eine Stelle im Display, einen von acht mal acht 
Bildpunkten, aus denen sich das zu gestaltende Zeichen zu- 
sammensetzen soll. Ein zweiter Kontroliton registriert die 
Eingabe. 


160 bis 190: Nur Eingaben von A (ATASCII 65) bis H (72) 
und O0 (48) bis 7 (55) werden verarbeitet. 


200: Die beiden Eingaben bestimmen wie Koordinaten einen 
Punkt im Display. In dieser Zeile wird die zugehörige 
Speicherzelle des Bildschirmspeichers abgefragt. 


210: Steht an der angesprochenen Stelle ein 'Punkt' (inverses 
Leerzeichen, interner Code 128), dann wird ein Leerzeichen 
(interner Code 0) an die Stelle gebracht 


220: und umgekehrt. 


230: Dann wird die Zeile, in der die Veränderung stattge- 
funden hat, abgefragt, der Dezimalwert des neuen Bit-Musters 
aktualisiert und an die entsprechende POS.ition auf den 
Bildschirm geschrieben. Dann geht's zurück nach 100. 


5000: Hier wird der Acht-Byte-Datensatz eines gestalteten 
Zeichens als DATA-Zeile auf die Diskette geschrieben. Dazu 
gibt es wieder einen Kontrollton und der noch offene Daten- 
kanals zur Tastatur wird erst einmal geschlossen. (Detail- 
liertere Informationen über das Arbeiten mit der Disketten- 
Station finden Sie im Kapitel 5.) 


5010: rechnet die Zeilennummer ZZ für die DATA-Zeile aus. 
ZN ist die vom Benutzer festgelegte erste DATA-Zeilennummer. 
Z ist der interne Code des aufgerufenen Zeichens, das in- 
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zwischen neu definiert wurde, und SW ist die ebenfalls vom 
Benutzer bestimmte Schrittweite der Zeilennummern. Jedes neu 
gestaltete Zeichen bekommt hier also eine Zeilennummer, die 
seinem Offset im Zeichensatz entspricht. So liegen die neuen 
Zeichen gleich in der richtigen Reihenfolge. 


5020: schreibt die DATA-Zeile auf die Diskette. 


5030 bis 5060: zählen mit, wie viele Zeichen schon neu ge- 
staltet wurden. Die Variable U(n) merkt sich, welches Zei- 
chen schon umgestaltet worden ist, V zählt, wie viele (ver- 
schiedene) Zeichen bereits umgestaltet sind. Wenn der 
komplette Zeichensatz neu entworfen ist, wird das Programm 
in den Zeilen 


6000 bis 6100: beendet. 


Als nächstes müssen wir nun dem Computer klar machen, daß 
er seinen Standard-Zeichensatz mal vergessen und dafür 
unsere geniale Neuschöpfung verwenden soll. Diese Aufgabe 
besorgt das folgende kurze Programm: 


8 REM TYPWEX64.BI2 

1 GOSUB 32631 

32631 DIM NMSP$(808):POKE 756,224: MND=PEEK(C186)-4:C5ST=N 
ND*256: POKE 186, MND:GRAPHICS & 

32632 FOR X=1 TO 49:READ ACHR:MSP$SCX,XI=CHR$SCACHRI:NE 
XxTX 

32633 DATA 184,104,133,213,184,133,212,183,133,215,18 
4,133,214,152,72,138,72,162,4,160,8,177,212,145,214 
32634 DATA 200,208,249,230,213,2380,215,202,208,248,18 
4,1780,1804,168,96 

32635 I=USRCADRCMSPS$), 224*256,CST) 

32636 FOR X=1 TO 63:FOR I=8 TO 7:READ TK:POKE CST+X%*8 
+1,TK:NEXT I:NEXT X 

32767 POKE 756,MND: RETURN 


1: Das Unterprogramm wird im tiefsten Zeilenbereich abge- 
legt, damit davor möglichst viel Platz für das eigentliche 
Programm bleibt, das die neu gestalteten Zeichen nutzen 
soll. 


32631: Das Maschinensprache-Programm wird von BASIC als 
String behandelt. Der muß natürlich DIMensioniert werden. 
Adresse 756 ist der Zeiger auf die Zeichenbasis. Multipliziert 
man den Wert in dieser Adresse mit 256, erhält man die 
Start-Adresse des Zeichensatzes. Adresse 106 ist RAMTOP, die 
höchste Adresse des noch verfügbaren RAM-Speichers. Der 
Wert in dieser Zelle gibt den Speicherplatz in Seiten (pages) 
an. Eine Speicher-Page umfaßt 256 Byte. 
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Durch Änderung des Vektors in Adresse 106 wird ein ge- 
schützter Speicherbereich geschaffen, da das Betriebssystem 
den RAM-Bereich immer unterhalb von RAMTOP belegt. 


Ein kompletter Zeichensatz benötigt! kB (=4 pages). PEEK 
(106) schaut nach, welchen Wert der Vektor momentan hat, 
dann wird 4 für vier Speicherseiten abgezogen und der neue 
Wert nach 106 gePOKEt. 


Wenn trotz dieser Reservierung Störungen auftreten (bestimmte 
Operationen können einen Speicherbereich oberhalb von 
RAMTOP löschen), dann reservieren Sie acht Pages. Dann 
gibt es mit Sicherheit keine Probleme. 


Die Start-Adresse des neu definierten Character-Set ergibt 
MND*256. 


32632: arbeitet das Maschinensprache-Programm ab, das in 
Form von DATA in Zeile 


32633: abgelegt ist. 
32635: ruft das Maschinensprache-Programm auf und 


32636: liest die Daten-Byte des neuen Zeichensatzes, die in 
den folgenden DATA-Zeilen abgelegt sind, und schreibt sie, 
beginnend mit der Start-Adresse CST, in die folgenden Zellen. 


Das erste Zeichen des Character-Set verwendet der Rechner 
als Leerzeichen (egal wie wir es gestalten!). In den meisten 
Fällen ist es sinnvoll, hier auch ein Leerzeichen abzulegen, 
damit der Bildschirm "sauber' bleibt. Für den Rechner ist 
die Mattscheibe nämlich voller Leerzeichen. Wird das Leer- 
zeichen vom Benutzer mit irgendeinem Bit-Muster gestaltet, 
so ist der "leere" Bildschirm mit diesem Bit-Muster gefüllt. 


Der Kopiervorgang für den neuen Zeichensatz beginnt deshalb 
gleich mit dem Zeichen 1, so daß die ersten acht Byte im 
Speicherbereich des neuen Character-Set leer bleiben. Die 
ersten acht DATA bilden also (nach dem nullten) das erste 
Zeichen. Wenn Sie das Umkopieren mit dem Zeichen 0 be- 
ginnen lassen, dann sollten die ersten acht DATA Nullen 
sein. 


In diesem Beispiel werden nur 63 Zeichen umkopiert. Wenn 
Sie einen vollständigen Zeichensatz erarbeitet haben, muß 
die FOR-NEXT-Schleife von 1 TO 127 laufen. 


32637: Ab hier ist Platz für die DATA-Zeilen. 


32767: Zum Schluß wird dem Rechner gesagt, bei welcher 
Adresse jetzt der Zeichensatz für ihn liegen soll. Wenn der 
Zeiger in Adresse 756 nicht verändert wird, dann weist er 
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mit dem Wert 224 (224*256=-57344) auf die Start-Adresse des 
Standard-Zeichensatzes. 


Jeder GRAPHICS-Befehl (und jedes RESET) erneuert den 
Default- (Einschalt-) Wert in dieser Adresse. Das bedeutet, 
nach jedem GR.-Befehl muß in 106 die Start-Adresse des frei 
definierten Character-Set erneuert werden. 


Natürlich ist es auch möglich, mehrere Zeichensätze im 
Speicher abzulegen und durch UmPOKEn des Registers 106 
von einer Schrift- oder Zeichenart auf die andere umzu- 
schalten. Auf dem Bildschirm kann aber immer nur der 
aktuelle Zeichensatz dargestellt werden. Das Mischen ver- 
schiedener Zeichensätze ist nicht möglich, da der Rechner 
im Bildschirmspeicher den ATASCII-Wert erfaßt, nicht aber 
die Bit-Muster der Zeichen. Werden die Bit-Muster geändert, 
erfährt jeder ATASCII-Wert eine neue Zuordnung von Bit- 
Mustern. 


Es wäre aber denkbar, mit dem Standard-Character-Set einen 
Text zu schreiben, der für den Uneingeweihten völlig sinn- 
los erscheint. Erst durch Umschalten auf einen frei definier- 
ten Zeichensatz wird jedem ATASCII-Wert ein neues Zeichen 
zugeordnet und damit der eigentliche Sinn des verschlüssel- 
ten Textes in Klarschrift lesbar. Das ergäbe eine sehr ein- 
fache Form elektronischer Verschlüsselung. Nur Empfänger, die 
den gleichen Zeichensatz laden können, bekommen die Nach- 
richt lesbar auf den Bildschirm. Allerdings ist auf diese 
Weise nur eine einfache Zeichen/Zeichen-Zuweisung möglich, 
die jeder Geheimschrift-Experte in wenigen Minuten lösen 
wird. 


Nach dem RETURN aus Zeile 32767 läuft das eigentliche 
BASIC-Programm, das in Zeile 2 beginnen kann. Setzen Sie 
in Zeile 32636 eine 127 ein und fügen eine Zeile 10 mit einem 
END ein. Laden Sie dann die Programme TYPWEX64.BIl2 und 
ARCHIV.DAT in den Rechner. Nach einem RUN dauert es einen 
kleinen Moment, bis der neue Zeichensatz geladen ist. Dann 
meldet sich der Computer mit READY. Das aber schon in der 
neuen Schrifttype. Sie können jetzt das Programm im Speicher 
löschen und ein neues Programm schreiben oder sonst alles 
machen, was mit dem Gerät möglich ist. Solange kein RESET 
oder GRAPHICS-Befehl ergeht, können Sie sich an der neuen 
Schrift erfreuen. 


Der veränderte Zeichensatz ist auch in den Grafik-Modi 2 
und 3 wirksam. Sie müssen nur nach dem GRAPHICS-Befeh!l 
den Zeiger in Adresse 756 erneuern. 


Da die Zeichen auf dem Bildschirm in GR.2 doppelt so groß 
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und farbig sind, bieten frei definierte Zeichensätze hier be- 


sondere Spielmöglichkeiten. 
zur Verfügung. 
die gleichen Zeichen auf, 


In GR.2 stehen nur 64 Zeichen 
Die übrigen dreimal 64 ATASCII-Werte rufen 
beziehen aber die Farbe dafür 


aus wechselnden Farbregistern. 


Im folgenden Zeichensatz ist jedes einzelne Zeichen als Bild 


eines 


kleinen 
lassen zwar nicht 


acht Punkte 
aber es sind 


Trickfilms gestaltet. Acht mal 
viel Gestaltungsfreiraum, 


doch eine Menge witziger Sachen damit möglich. 


Natürlich könnte jedes Filmbild aus vier Zeichen zusammen- 


gesetzt werden, 
verschiedene Bilder gezeigt werden. 
sechzehn 
106) 


diesen 

(Adresse 
wo sich ein weiterer Zeichensatz befindet, 
zehn Bilder ermöglicht usw., 


8 REM 
32637 
32638 
32639 
32640 
32641 
32642 
32643 
32644 
32645 
32646 
32647 
32648 
32649 
32650 
32651 
32652 
32653 
32654 
32655 
32656 
32657 
32658 
32659 
32660 
32661 
32662 
32663 
32664 


dann könnten aber nur insgesamt sechzehn 
Allerdings könnte nach 
Bildern der Zeiger für den Zeichensatz 
auf einen Speicherbereich umgePOKEt werden, 
der weitere sech- 
bis der Speicher platzt. 


TRICKTYP.BI2 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


128,0,8,8,08,8 
192,192,8,8,8 
654,168,64,8,0 
96,144,144,96,80,0,0,® 
112,136,136,136,112,0,0,08 
128,132,132,132,132,1280,08,08 
56,68,138,138,138,68,56,8 
60,66,129,129,129,129,66,60 
8,28,34,65,65,65,34,28 


‚8,8 
‚8,8,8 
‚8,8, 


9,9,38,33,33,33,33,3® 
9,8,8,14,17,17,17,14 
9,0,0,0,6,9,9,6 
0,0,08,0,0,7,5,7 
9,0,08,0,0,0,3,3 
9,0,0,0,0,0,0,1 
2,0,0,0,0,0,0,0 
128,0,0,0,0,0,0,0 
0,64,0,0,0,0,0,0 
9,0,32,08,0,9,9,0 
9,0,08,16,9,9,9,8 
0,0,08,0,8,0,0,0 
9,0,90,0,0,4,0,0 
0,0,0,0,0,0,2,0 
0,0,90,0,0,0,0,1 
128,9,0,0,0,0,0,0 
0,64,0,0,0,0,0,8 
9,32,64,0,0,0,0,® 
9,16,0,64,0,0,0,08 
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32665 
32666 
32667 
32668 
32669 
32678 
32671 
32672 
32673 
32674 
32675 
32676 
32677 
32678 
32679 
32680 
32681 
32682 
32683 
32684 
32685 
32686 
32687 
32688 
32689 
32698 
32691 
32692 
32693 
32694 
32695 
32696 
32697 
32698 
32699 
32788 


Diese 


erzeugt. 
Trickfilm-Bilder 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA-Zeilen wurden mit 
Mit 


0,64,4,0,0,8,0,65 
169,0,168,0,16,0,130,0 
8,64,16,112,9,64,2,0 
0,96,64,32,32,4,9,0 
160,90,160,112,68,80,9,0 
16,72,808,56,2,168,0,0 
0,44,148,72,4,2,184,0 
8,102,102,0,09,66,60,8 
8,102,66,9,9,126,0,0 
0,36,66,90,0,69,66,0 
0,0,66,0,9,52,66,® 
0,36,66,0,90,36,66,0 
8,66,36,8,9,36,66,® 
0,66,0,24,24,0,66,0 
0,0,36,9,8,36,8,® 
8,0,0,24,24,0,0,0® 
0,0,24,36,36,24,9,0 
0,24,24,102,192,24,24,® 
24,24,0,195,195,0,24,24 
36,24,129,66,66,129,24,36 
36,36,219,36,36,219,36,36 
66,165,99,36,36,99,165,66 
32,102,91,36,36,218,192,4 
32,82,61,38,100,188,74,4 
48,48,27,39,228,216,12,12 
24,24,24,231,231,24,24,24 
24,36,90,165,165,99,36,24 


dem Programm TYPGENE .BI2 
dem folgenden kurzen Programm lernen die 
laufen: 


8 REM TRICKPRT.BI2 


GRAPHICS 18:POKE 712,8:POKE 756,MND 


108 

28 FOR C=32 TO 95 

38 PLOT 18,5:COLOR C 

48 FOR W=8 TO 488:NEXT U 
58 NEXT C 

568 GOTO 28 
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10: ruft den Grafik-Modus auf und restauriert den Vektor in 
Adresse 756. 


20: geht die ATASCII-Werte 32 bis 95 durch, das sind alle 
Werte, die in GRAPHICS 2 aufgerufen werden können und ihre 
Farbe aus Register 708 beziehen. 


30: schreibt das aufgerufene Zeichen an die Bildschirmposi- 
tion 10,5 und 


40: legt eine Pause ein, damit unser Auge mitkommt. 


Wenn Sie nachzählen wollen, es stehen DATA für 64 neu ge- 
staltete Zeichen zur Verfügung. Das Programm TYPWEX64.BI2 
lädt aber, wie besprochen, nur 63 davon, denn das nullte 
Zeichen bleibt als Leerzeichen erhalten. Wenn Sie die FOR- 
NEXT-Schleife auf 0 TO 63 ändern, dann können Sie sehen, 
was es bedeutet, kein Leerzeichen zu haben. Der Trickfilm 
ist dann zwar um ein Bild länger, aber der ganze übrige 
Bildschirm ist voll von gestalteten "Leerzeichen". 


3.2.3 Character Dump 


Wenn Aufbau und Lage des Zeichensatz-Speichers bekannt 
sind, dann ist es kein Problem mehr, die Daten eines be- 
stimmten Zeichens zu lesen und in irgendeiner Weise weiter 
zu verarbeiten. So ist es z.B. möglich, die ATARI-Standard- 
Zeichen in ihren original Bit-Mustern mit dem Nadeldrucker 
auf Papier zu bringen. Schwierigkeiten bereitet höchstens 
die Kommunikation zwischen beiden Geräten. Im Kapitel 4 
wird darüber ausführlicher zu reden sein. 


Das markanteste Problem bei der Koordination von Rechner 
und Drucker ist die Tatsache, daß der Computer die Bit- 
Muster der Zeichen Zeilenweise zu Dezimalwerten aufrechnet, 
der Drucker aber spaltenweise arbeitet. 


Es gibt verschiedene Wege, dieses Problem zu lösen. Am 
simpelsten ist es, dem Drucker die Daten aus dem Computer 
so zu senden, wie sie dort liegen. Die Zeichen werden dann 
um 90° gedreht auf das Papier gedruckt und wenn sie nicht 
spiegelverkehrt erscheinen sollen, müssen die Daten rück- 
wärts verarbeitet werden. Wie ein solches Programm im 
Prinzip aufgebaut ist, hat Ihnen DEFCHRPR.BI2 bereits ge- 
zeigt. Sollen die Zeichen aber in richtiger Orientierung auf 
dem Blatt enden, dann ist ein etwas aufwendigeres Programm 
notwendig, das die zeilenweisen Daten-Byte aus dem Zeichen- 
satz-Speicher des Rechners in Bits zerlegt und spaltenweise 
neu zu Daten-Bytes zusammenrechnet, die dem Drucker pas- 
sen: 
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8 REM CHRPRT.BI2 
188 LPRINT CHR$C27)>;CHR$C68);CHR$C4),CHR$CY7),CHR$SC1B) 
; CHR$C13) ;CHR$C16) ;CHR$C19) ;CHR$C22)3,CHR$C25);CHR$(CDB) 


118 Q=6 

288 DIN X(7,7) 

218 FOR INV=8 TO 1 

228 FOR ATA=8 TO 127 

238 INC=ATA 

248 IF ATA<32 THEN INC=ATA+64:GOTO 260 

258 IF ATA<96 THEN INC=ATA-32:GOTO 2608 

268 FOR M=8 TO 7:FOR N=8 TO 7:X(CM,N)=8:NEXT N:NEXT M 
298 FOR I=8 TO 7 

388 A=PEEK(C57344+I+1NCK8) 

318 IF A>127 THEN A=A-128:X(0,12=1 

3280 IF A>63 THEN A=A-64:X(1,DD=1 

338 IF A>31 THEN A=A-32:X%(2,1)=1 

348 IF A>15 THEN A=A-16:X(3,1I)=1 

358 IF A>? THEN A=A-8:X(4,ID=1 

3680 IF A>3 THEN A=A-4:X(5,DD=1 

378 IF A>1 THEN A=A-2:X(6,1I)=1 

388 IF A>8 THEN X(7,1ID=1 

398 NEXT I 

488 A=XC8,B8)*X128+XC08,1)x64+X(08,2)*%32+XC08,3)x16+XC08,4) 
xB+XCQO,5)xA4+XC8,6)*2+XC0,7) 

418 A=ABSCINVx255-A) 

4580 B=XC1,0)x128+XC1,1)X64+XC01,2)%32+XC1,3)x16+XC(1,4) 
*K8rXC1,5)%4+XC1,6)%2+X(1,7) 

468 B=ABSCINVx255-B) 

508 C=X(C2,0)xX128+XC02,1)X64+X02,2)*32+XC02,3)xX16+XC(2,4) 
*8+XC02,5)xX4+X(2,6)*2+X(2,7) 

518 C=ABSCINVx255-C) 

558 D=XC3,0)*128+XC3,1)X64+X03,2)%32+X(3,3)%16+XC3,4) 
KEHXC3,5I)K4+XC3,6)%2+XC3,7) 

568 D=ABSCINVx255-D) 

508 E=X(4,0)x128+XC4,1)x364+XC04,2)x32+X04,3)x16+XC4,4) 
xK8+XC4,5)%4+X04,6)%2+X(4,7) 

618 E=ABSCINV+255-E) 

5658 F=EXC5,0)X128+XC05,1)%64+X05,2)X32+X(05,3)%16+XC05,4) 
KB+XC5,5I)KAH+X(5,656)x%2+X(5,7) 

668 F=ABSCINVx255-F) 

788 G=X(6,0)x128+XC(6,1)X64+XC6,2)x32+X(56,3)%16+XC6,4) 
+8+X(6,5)X4+XC(6,6)%2+XC6,7) 

718 G=ABSCINVx*255-G) 

758 H=X(7,0)x128+Xc(7,1)*%64+X(7,2)*x32+X(7,3)x16+X(7,4) 
x8+XC7,5)x%4+X(7,6)xX2+X(7,7) 

768 H=ABSCINVx255-H) 
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8808 OPEN #1,8,08,”P:” 

818 Q=Q+1:1IF a=7 THEN PUT #1,18:Q4=-1:GOTO 830 
828 FOR T=8 TO @:PUT #1,9:NEXT T 
838 PUT #1,27 

848 PUT #1,75 

8508 PUT #1,8 

8508 PUT #1,08 

870 PUT #1,A 

888 PUT #1,B 

898 PUT #1,C 

988 PUT #1,D 

918 PUT #1,E 

928 PUT #1,F 

938 PUT #1,G 

948 PUT #1,H 

958 CLOSE #1 

968 NEXT ATA 

978 NEXT INV 


100: setzt die Tabulator-Marken des Druckers. Das Format 
dieser Anweisung ist auf den radix-10 von star abgestellt. 
Falls Sie einen anderen Drucker haben sollten, müssen Sie 
diese Zeile entsprechend ändern. (Es werden übrigens nur 
sechs TAB-Marken benötigt.) 


110: Die Variable @ bekommt einen Anfangswert, der dafür 
sorgt, daß vor dem Ausdruck des ersten Zeichens in Zeile 
810 bereits ein Zeilenvorschub an den Drucker gesendet 
wird. Der automatische Zeilenvorschub bei Empfang des Sig- 
nals CR (carriage return = RETURN-Taste) muß unterdrückt 
sein (star: DIP-switch C-4: OFF). 


210: Das Programm muß zweimal abgearbeitet werden, um 
einen normalen und einen inversen Zeichensatz auszudrucken. 


220: Die folgende Schleife arbeitet 128 Werte ab. 
240 und 250: verwandeln die ATASCII-Werte in internen Code. 


290 bis 390: Die acht Daten-Byte des bearbeiteten Zeichens 
werden gelesen und in ihr Bit-Muster aufgespalten. Die 
doppelt-indizierte Variable X(n,n) nimmt die acht mal acht 
Bit-Werte auf. 


400 bis 760: Die in X(n,n) erfaßten Bit-Muster werden hier 
spaltenweise zu Dezimalwerten aufgerechnet. Die Variable 
INV bewirkt, daß die Zeichen normal oder invers gedruckt 
werden. Ist INV=0, dann bleibt der Multiplikator 255 in der 
Klammer ohne Wirkung und das Minuszeichen wird durch die 
ABS-Funktion unschädlich gemacht. Ist aber INV=1, dann 
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wird von 255 der Dezimalwert abgezogen und das bewirkt 
ein Invertieren des Bit-Musters. 


800: Der Schreib-Kanal zum Drucker wird eröffnet. 


810: Da jeweils acht Zeichen nebeneinander gedruckt werden 
sollen, wird nur nach jedem achten Zeichen ein LF (line 
feed, Zeilenvorschub, ASCII-Wert 10) an den Drucker 
geschickt. 


820: besorgt die Tabulator-Sprünge. 


830 bis 860: bereiten den Drucker auf Dot-Grafik-Daten vor. 
Diese Zeile müssen Sie wieder entsprechend der Betriebsan- 
leitung Ihres Druckers umschreiben. 


870 bis 940: senden acht Bit-Muster an den Drucker. 


Und so sieht das Ergebnis aus: 


1. Ze Zu Bu Seen en er u AM u 
FF en BE CE a BE "u mE u 
2 Bee BE Ben Ber se eREEn um Er e  a mm 
Mm „Be "SEE EEE! SE 4 Ben ei a KR a le 
eK LS - Ze. Sue 7 Ze m © = E53 EB 

| ME: BEE Zee BEE SE I a a I 
a A EEE MN 5 7 cn 1 u 7 u u a u 7 
BE OB 1 2 mo» # 3 Eu aM ME Mi a 
E a BB E b E FF G Mil ma mm GG 5 
HI KıLPMHM OD „a mM a a m DD 90 
Po Rh OT UT aM AND Ei T mu Mm 
ie " Er Lo „ SE I u’ a 7 ee re = u 
» a erg Me a u Ba + Ba u Bas u > u 
Hi ik 1 en 0 man mm m m 8 
Pam EEE Ai mn Eu NM Mm 
re" Buee- Zur Te Be ‚Ge » Ma N a KB dd hi 


86 


3.3 Bildschirmspeicher 


Der Bildschirmspeicher enthält die Bild-Daten, mit denen die 
Bild-Struktur der Display-Liste gefüllt wird. Das Betriebs- 
system richtet im unteren RAM-Bereich den Bildschirmspeicher 
so ein, daß er oberhalb der Adresse 40960 endet. Ergeht 
durch den Anwender ein GRAPHICS-Befehl, wird entsprechend 
dem Speicherbedarf der aufgerufenen Betriebsart Platz re- 
serviert. Da immer ein Grafik-Modus eingeschaltet ist, ohne 
besonderen Befehl ist das GR.O, ist auch immer ein Bild- 
schirmspeicher angelegt. Der Bildschirmspeicher reduziert 
also die etwa 32 kByte RAM, die dem Anwender zur Verfügung 
stehen. 


Der Vektor in den Adresse 88 (LO) und 89 (HI) zeigt auf 
die Start-Adresse des Bildschirmspeichers. In GR.O ist das 
40000. Der Bildschirminhalt von GR.O belegt 960 Byte, so 
daß der Bildschirmspeicher in 40959 (unterhalb von 40960) 
endet. 


Wird ein Grafik-Modus mit Textfenster aufgerufen, so wird 
ein Speicherbereich reserviert, der ausreicht, um den ge- 
samten Bildschirm in der angesprochenen Grafik-Auflösung 
zu bedienen. Dahinter wird zusätzlich Speicherplatz für die 
vier Zeilen GR.O des Textfensters belegt. Deshalb ist es 
möglich, in ein Grafikfenster das Textfenster ein- und wieder 
auszublenden. D.h. der Bildschirmspeicher für das Textfen- 
ster beginnt immer in Adresse 40800, gleichgültig in welcher 
Auflösung der übrige Bildschirm betrieben wird. 


Unmittelbar vor dem Bildschirmspeicher ist die Display-Liste 
abgelegt. 


3.3.1 Aufbau der SM 


Im Bildschirmspeicher (SM = screen memory) sind die Daten 
aufgereiht, die den Bildschirminhalt darstellen. Die Start- 
Adresse der SM enthält die Daten für die linke obere Ecke 
des Bildschirms. Es folgen die Bild-Daten zeilenweise. In 
der End-Adresse der SM befinden sich die Informationen für 
die rechte untere Ecke des Bildschirms. 


Der Bildschirmspeicher wird durch den Befehl PLOT (oder 
PRINT) beschrieben. Der COLOR-Wert (oder der String-Inhalt) 
gibt an, was in die durch PLOT gefundene Speicherzelle ge- 
schrieben werden soll. Im Textbetrieb werden in den Spei- 
cherzellen die Daten-Byte des internen Codes der jeweiligen 
Zeichen abgelegt. In GR.O entsprechen diese Werte den 256 
möglichen Zeichen. In GR.iI und GR.2 ist jeweils nur ein 
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Viertel des Zeichenvorrates verfügbar, dafür aber in vier 
verschiedenen Farben, was die möglichen Dezimalwerte wieder 
auf 256 bringt. 


Es ist vielleicht gut, noch einmal darauf hinzuweisen, daß 
jede Speicherzelle acht Bit zusammenfaßt und jedes dieser 
acht Bit nur den Zustand OD oder 1 kennt. In den Speicher- 
zellen befinden sich also nicht wirklich Dezimalwerte, viel- 
mehr gibt das Betriebssystem den Inhalt von Adressen als 
Dezimalwerte aus, ein Entgegenkommen an den menschlichen 
Benutzer, der noch immer nur zehn Finger hat und deshalb 
vom sperrigen Dezimalsystem nicht loskommt. Der tatsäch- 
liche Inhalt einer Speicherzelle ist aber als achtstellige Bi- 
närzahl vorzustellen. 


Dieses Bewußtsein ist hilfreich, um die Erfassung von Grafik- 
punkten in der SM zu verstehen. Es sind drei Gruppen von 
Grafik-Modi zu unterscheiden, die zweifarbigen, die vier- 
farbigen und die mehrfarbigen. 


in einer zweifarbigen Betriebsart erfaßt jedes Bit einen 
Grafikpunkt. Dabei ist es völlig gleichgültig, wie groß die- 
ser Grafikpunkt später auf der Bildfläche erscheint. Diese 
Informationen enthält die Display-Liste. In der SM wird nur 
der COLOR-Wert des zugehörigen Grafikpunktes gespeichert. 
Bei einer zweifarbigen Betriebsart gibt es den COLOR-Wert O 
(Hintergrund) und COLOR 1 (Grafikpunkt). Bits werden je 
nach Bildstruktur gesetzt oder nicht gesetzt und von dem 
Byte, in dem sie zusammenkommen, zu einem Dezimalwert (0 
bis 255) zusammengefaßt, ganau wie es für den Zeichensatz 
schon erläutert wurde. 


In der Betriebsart GR.4 liegen 80 Bildpunkte auf dem Schirm 
nebeneinander. Die Information von acht Punkten hat in 
einem Byte Platz. Also benötigt eine GRAPHICS-4-Zeile 10 
(80/8) Byte Speicherplatz. 


In einem vierfarbigen Modus werden für den COLOR-Wert 
eines Grafikpunktes zwei Bit benötigt. In diese beiden Bit 
wird der COLOR-Wert in binärer Form geschrieben. Also 0 0 
für COLOR 0, O0 1 für COLOR 1, 1 0 für COLOR 2 und 1 1 


für COLOR 3. 
7 sls ala 2lı 0 
ole[feilehlı 


128 64 | 32 
CO.0 | Co.1 | co.2 | CO.3 






Bit 


27 





Dezimalwert 
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In jedem Speicher-Byte haben also die Informationen für 
vier Grafikpunkte Platz. Die Abbildung zeigt, wie vier in 
einer Zeile liegende Grafikpunkte mit den Farben 0,1,2,3 in 
einer Zelle der SM den Dezimalwert 27 verursachen. Würde 
in diesen Speicherplatz der Wert 25 geschrieben, würde der 
vierte Grafikpunkt die Farbe I annehmen. 


Die Grafikpunkte auf der Mattscheibe schöpfen also aus zwei 
Quellen. Der Bildschirmspeicher gibt an, welcher Punkt in 
welchem COLOR-Wert dargestellt werden soll. Welcher Farb- 
ton damit gemeint sein soll, bestimmen die Farbregister. Im 
folgenden Programm können Sie die Farbtöne für die Farb- 
register bestimmen. Dann wird in jede Speicherzelle der SM 
der Wert 27 geschrieben. Er bewirkt, wie oben gezeigt wur- 
de, daß vier Grafikpunkte nebeneinander mit den COLOR- 
Werten 0, 1, 2 und 3 auf dem Bildschirm erscheinen: 


18 ? CHR$(125);,” BITTE GEBEN SIE VIER NUMERISCHE” 
28 7 :? ” FARBUERTE VON 8 BIS 254 EIN” 

38 ? :? ” NUR GERADE ZAHLEN!” 

48 ? :? ” ERSTER WERT, GRAFIKPUNKT 1: ”; 

58 INPUT Gi 

88 ? :? ” ZUEITER WERT, GRAFIKPUNKT 2: ”; 

r’@ INPUT G2 

80 ? :? ” DRITTER WERT, GRAFIKPUNKT 3: ”; 

98 INPUT G3 

188 ? :? ” VIERTER WERT, HINTERGRUND 8: °; 

118 INPUT H 

288 GRAPHICS 19:POKE 788,G1:POKE 789,G2:POKE 7108,G3: 
POKE 712,H 

218 SM=PEEK(8SI+PEERK(89)IX256 

228 FOR J=8 TO 239 

238 POKE SM+J,27 

2480 NEXT J 

250 GOTO 258 


10 bis 110: schreiben Werte in die Farbregister, auf die 
sich COLOR O0 bis 3 beziehen. Hier können Sie also beliebige 
Farbtöne auswählen. Mit dem Bildschirmspeicher hat das 
nichts zu tun. 


200: Der Grafik-Modus wird eingeschaltet und die vom Be- 
nutzer eingegebenen Farbwerte werden in die entsprechenden 
Register geschrieben. 


210: berechnet die Start-Adresse des Bildschirmspeichers. 


220 bis 240: beschreiben die 240 Speicher-Bytes des Bild- 
schirms mit 27. Ein Streifenmuster entsteht durch die stän- 
dige Wiederholung der gleichen Folge von COLOR-Werten. 
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Bei diesem Programm können Sie die Folge der vier COLOR- 
Werte, die zu einem Byte zusammengefaßt werden, selbst be- 
stimmen: 


8 REM SMPOKEGR.BI2 

18 ? CHR$(125)9;,” BITTE GEBEN SIE VIER COLOR-UERTE” 
28 ? :? ” VON 8 BIS 3 EIN” 

38 ?7 .:? ” ERSTER GRAFIKPUNKT: ” 
38 INPUT G® 

s8 ? :? ” ZWEITER GRAFIKPUNKT: ” 
68 INPUT Gi 

78 ? :? *® DRITTER GRAFIKPUNKT: ” 
88 INPUT G2 

98 ? :? *" VIERTER GRAFIKPUNKT: ”. 
188 INPUT G3 

288 GRAPHICS 19 

218 SM=PEEK(88) +PEEK(89)x256 

228 CC=GB+64+G1xX16+G2%4+G3 

238 FÜR J=8 TO 239 

2438 POKE SNM+J,CC 

258 NEXT J 

268 GOTO 268 


10 bis 100: nehmen die COLOR-Werte für eine Folge von vier 
Grafikpunkten an. 


210: berechnet die Start-Adresse des Bildschirmspeichers. 


220: errechnet aus den vier COLOR-Werten den Dezimalwert, 
der in die Speicherzellen geschrieben werden muß, um die 
gewünschte Farbfolge von Grafikpunkten auf der Bildfläche 
zu bewirken. Der erste Grafikpunkt liegt in der Ecke oben 
links. Im ersten Daten-Byte belegt er die Bits 7 (dezimal 
128) und Bit 6 (dezimal 64). Der COLOR-Wert des ersten 
Grafikpunktes muß also mit 64 multipliziert werden. Der 
zweite Grafikpunkt belegt Bits 5 (32) und 4 (16). Sein 
COLOR-Wert ist demnach mit 16 zu multiplizieren. Der dritte 
Punkt beschreibt Bits 3 (8) und 2 (4) und sein COLOR-Wert 
wird mit 4 malgenommen. Der COLOR-Wert des vierten Grafik- 
punktes wird in Bits 1 und O gespeichert. So errechnet sich 
aus den COLOR-Werten von vier Grafikpunkten ein Dezimal- 
wert, der in eine Zelle des Bildschirmspeichers geschrieben, 
das gewünschte Bit-Muster erzeugt. 


230 bis 250: schreiben mit diesem einen Wert wieder den ge- 
samten Bildschirmspeicher voll. 


Natürlich kann für jeden einzelnen Grafikpunkt ein beliebiger 
COLOR-Wert gewählt werden. Dann bekommt jede Zelle der SM 
einen individuellen Dezimalwert. Das folgende Programm er- 
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zeugt zufällige Dezimalwerte, die in die SM geschrieben zu- 
fällige Verteilungen von COLOR-Werten verursachen: 


288 GRAPHICS 19:POKE 788,24:POKE 789,222:POKE 718,158 
:POKE 712,8 

218 SM=PEEK(C8SSI+PEEKC8IIK256 

228 FOR J=8 TO 239 

238 POKE SM+J,INTCRND(CB8)Xx256) 

248 NEXT J 

258 GOTO 250 


Schließlich verfügt ATARI noch über drei Grafik-Modi, die 
mehr als vier verschiedene Farbtöne gleichzeitig verwalten 
können. Es handelt sich um GRAPHICS 9 bis 11. Hier stellt 
jeder Grafikpunkt vier Bit Information dar. Je zwei Grafik- 
punkte werden in einem Byte zusammengefaßt. Um den damit 
verbundenen extrem hohen Speicherbedarf zu verringern, ist 
ein Grafikpunkt auf der Mattscheibe vier Bildpunkte breit 
(aber nur eine Fernsehzeile hoch). Dadurch haben diese 
drei Betriebsarten einen gleichhohen Speicherbedarf wie 
GRAPHICS 8, wo ein Pixel nur einen Bildpunkt breit ist, 
dafür aber nur eine Farbe zur Verfügung steht. (Sie erin- 
nern sich aus Abschnitt 1.1, daß die Modi 9, 10 und 11 die 
gleiche Display-List verwenden wie GR.8?). 


Bit 
27 


‚Dezinalwert 128 64 32 8 2 
COLOR 1 COLOR 11 
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Der COLOR-Wert des ersten Grafikpunktes wird in binärer 
Form in die oberen vier Bit geschrieben, der COLOR-Wert für 
das folgende Pixel in die unteren vier Bit. Daraus ergibt 
sich ein Dezimalwert als Speicherinhalt, der zwei verschie- 
dene Grafikpunkte erzeugt. In der obigen Abbildung hat der 
erste Grafikpunkt den COLOR-Wert 1 (binär 0001), der zweite 
den COLOR-Wert 11 (binär 1011). Als Dezimalwert ergibt sich 
daraus 0+0+0+16+8+0+2+1=27. 


In GR.9 ist jedem der möglichen sechzehn COLOR-Werte (0 
bis 15) eine Helligkeitsstufe des für alle gleichen Farbtons 
zugeordnet: 


BO REM GRSCOLR.BIZ 
1a GRAPHICS 9 
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28 SM=PEEK(C88)+PEEKCSEIYIXK25E 
38 FOR C=8 TO 15 

48 FOR J=8 TO 191 

58 POKE SM+Jx48+C,C 

68 NEXT J 

78 NEXT C 

88 FOR M=8 TO 15 

98 POKE 712,N*16 

188 FOR W=8 TO 288:NEXT W 
118 NEXT M 

128 GOTO 128 


Das Programm schreibt sechzehn senkrechte Farbbalken auf 
den Bildschirm. Der erste entspricht der Hintergrund- und 
Randfarbe und hebt sich deshalb nicht ab. Es folgen Strei- 
fen mit wachsender Helligkeit. Da in Zeile 50 nur Dezimal- 
werte von O0 bis 15 gePOKEt werden, sind die oberen vier 
Bit jeder Speicherzelle auf O gesetzt, d.h. der erste Grafik- 
punkt hat immer den COLOR-Wert 0, der folgende den ge- 
POKEten Wert. Deswegen ist jeder zweite Streifen schwarz 
(Farbe von COLOR 0). Wenn Sie in Zeile 50 statt C den Wert 
C*16 POKEn, werden die oberen vier Bit beschrieben. Mit 
C*16+C können Sie auch beiden Grafikpunkten einen wech- 
selnden COLOR-Wert geben. 


In den Zeilen 80 bis 110 wird der Wert im Farbregister ge- 
wechselt. Er bestimmt die Farbe für alle Grafikpunkte. Die 
Daten der SM bestimmen nur den Helligkeitswert. 


In den Farbregistern (704 bis 712) bestimmen die oberen 
vier Bit den Farbton (0 bis 15) und die folgenden drei Bit 
die Helligkeit. Bit 0 wird nicht genutzt, weil nur acht 
Helligkeitsstufen verarbeitet werden (die geraden Werte von 
O0 bis 14). Um den Farbton zu wechseln, muß in Register 712 
ein Vielfaches von 16 geschrieben werden. 


Bei GR.11 sieht es ganz ähnlich aus. Nur wird hier der 
Helligkeitswert in Register 712 definiert und von COLOR 
werden die sechzehn verschiedenen Farbtöne aufgerufen (die 
dann alle die gleiche Helligkeit haben): 


8 REM GRI1COLR.BI2 

18 GRAPHICS 11 

28 SM=PEEKCBSI+PEEK(C8IYIK2SE 
38 FOR C=8 TO 15 

38 FOR J=8 TO 191 

58 POKE SNM+Jx49+C,C 

68 NEXT J 

78 NEXT C 
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88 FOR M=2 TO 15 

98 POKE 712,M 

188 FOR W=8 TO 288:NEXT W 
118 NEXT M 

128 GOTO 128 


Das Programm schreibt sechzehn senkrechte Streifen ver- 
schiedener Farbtöne auf den Bildschirm und wechselt dann 
die Helligkeitsstufen. 


Etwas anders ist es bei GR.10. Hier können nur neun Farb- 
töne (incl. Hintergrund) aufgerufen werden. Einfach deshalb, 
weil alle diese Farbtöne beliebig definiert werden können, 
dafür aber nur neun Farbregister (704 bis 712) zur Verfü- 
gung stehen. Auch hier nimmt jede Speicherzelle die COLOR- 
Werte von zwei Grafikpunkten auf: 


8 REM GRIBCOLR.BI2 

18 GRAPHICS 18:POKE 784,43 
28 SM=PEEK(C8SI +PEEKCSII K256 
38 FOR C=8 TO 8 

48 FOR J=8 TO 191 

SB POKE SM+Jx4B8+C,C 

68 NEXT J 

78 NEXT C 

88 GOTO 808 


Die Farbregister 704 bis 707, die außer für GR.1O nur bei 
der Player-Missile-Grafik verwendet werden, haben den 
Default-Wert 0. Deshalb kommen vier schwarze Streifen auf 
den Bildschirm. Die Register 708 bis 712 haben die Default- 
Werte 40 (Orange), 208 (Hellgrün), 48 (Mittelblau), 70 
(Flieder) und O (Schwarz). 


Den ganzen Farbreichtum des ATARI zeigt Ihnen diese kleine 
Spielerei: Ä 


8 REM MULTICOL.BI2 

18 GRAPHICS 11 

28 SM=PEEK(88S)I +PEEKC89I x256 
38 FOR C=8 TO 239 

40 FOR J=8 TO 48 

58 POKE SM+C*48+J,C+16 

568 NEXT J 

78 NEXT C 

88 GOTO 80 
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3.3.2 Schrift und Grafik mischen 


Bei manchen Anwendungen mag es nicht befriedigen, im 
oberen Teil des Bildschirms Grafik zu zeigen und in dem 
Vier-Zeilen-Textfenster darunter schriftliche Informationen. 
Bei Spielen und besonders bei Schaubildern, möchte man oft 
Schriftzeichen innerhalb der Grafik zeigen. 


Theoretisch ist das überhaupt kein Problem, denn aus den 
Punkten des Grafik-Modus kann man natürlich Schrift- und 
andere Zeichen zusammensetzen. Nur ist es ein abschreckend 
mühsamer Vorgang, jeden Buchstaben aus Dutzenden einzelner 
Punkte zusammenzuPLOTten. 


Nun wurde aber im vorigen Abschnitt gezeigt, daß sich die 
Daten-Byte in den zweifarbigen Grafik-Modi genauso zusam- 
mensetzen wie die umgerechneten Bit-Muster aus dem Zeichen- 
satz-Speicher. Wird also ein Dezimalwert aus dem Standard- 
Zeichensatz gelesen (PEEK) und in eine Speicherzelle der SM 
geschrieben (POKE), so entsteht das Bit-Muster des Zeichens 
auf dem Bildschirm in der Auflösung des gewählten Grafik- 
Modus. Da ein Schriftzeichen aus acht Daten-Byte besteht, 
müssen acht fortlaufende Zellen im Zeichensatz-Speicher ge- 
lesen werden. 


Die im Zeichensatz hintereinander liegenden acht Byte sollen 
aber auf der Bildfläche untereinander liegen. Sie gehören 
also im Bildschirmspeicher nicht in fortlaufende Zellen, 
sondern müssen jeweils eine Zeile tiefer abgelegt werden. Es 
ist also nötig, auszurechnen, wie viele Byte eine Zeile des 
Bildschirms belegt, um dann die acht Byte des Zeichens in 
jeweils diesem Abstand hintereinander in der SM abzulegen. 


Da die Grafik in einem Grafik-Modus sinnvollerweise durch 
die Befehle PLOT und DRAWTO aufgebaut wird, die leichter 
zu handhaben sind, als eine direkte Adressierung der SM, 
die Schriftzeichen aber nur direkt in den Bildschirmspeicher 
gePOKEt werden können, sei hier noch auf eine Feinheit 
hingewiesen. 


Durch den Befehl PLOT (und DRAWTO) wird in einer zweifar- 
bigen Betriebsart ein bestimmtes Bit in einem bestimmten 
Speicher-Byte gesetzt (im vierfarbigen Gang zwei). Dadurch 
erhöht sich der Gesamtwert des Byte um die Wertigkeit des 
Bit. Durch den Befehl PLOT werden also schon im Daten-Byte 
vorhandene Werte nicht gelöscht, PLOT verändert nur den 
Zustand einzelner Bits. Wird aber ein Dezimalwert in ein 
Speicher-Byte gePOKEt, so: affektiert das natürlich alle Gra- 
fikpunkte, deren Information in diesem Byte versammelt ist. 
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Das bedeutet, wird durch PLOT ein Punkt auf dem Bildschirm 
erzeugt und ein Bit in einer Speicherzelle gesetzt und dann 
ein Dezimalwert in diese Speicherzelle geschrieben, um das 
Bit-Muster eines Zeichens auf die Mattscheibe zu bringen, 
dann wird das gesetzte Bit dadurch überschrieben und der 
Punkt auf dem Bildschirm verschwindet. Wird aber erst der 
Dezimalwert in die Speicherzelle gePOKEt und dann ein 
Punkt gePLOTtet, so erscheint er auch innerhalb des Be- 
reichs von acht mal acht Punkten, der von den Schrift- 
zeichen abgedeckt wird. Diesen Vorgang des Überschreibens 
können Sie beim folgenden Programm beobachten: 


ö REM GRSCHRPR.BI2Z 

18 DIM 2$C]) 

28 GRAPHICS 8 

38 ? ?BITTE DAS ZEICHEN EINGEBEN, DAS AUF” 

48 ? ?’DEN BILDSCHIRM GESETZT WERDEN SOLL” 

58 ? "BITTE NUR ZIFFERN UND MAJUSKELN” 

58 INPUT Z2$ 

7a IF Z$="L” THEN COLOR 1:PLOT 8,8:DRAUTO 319,159:G0 
TO 38 

88 ?” :? ?’BITTE GEBEN SIE DIE SPALTE (8 BIS 39)” 
98 ? ”’EIN, IN DER DAS ZEICHEN STEHEN SOLL” 

188 INPUT X 

118 ? :? "BITTE GEBEN SIE DIE ZEILE (8 BIS 152)” 
128 7? "EIN, IN DER DAS ZEICHEN STEHEN SOLL” 

138 INPUT Y 

288 SM=PEEK(SSI+PEERKCSY)IKZ2IE 

218 OFF=CASCCZ$I)-32)%8 

228 FOR J=8 TO 7 

2308 POKE SM+X+Y*48+J%48,PEEKCSY7343+0FF+J) 

2438 NEXT J 

25@ GOTO 38 


30 bis 60: Das Zeichen, das auf dem Bildschirm erscheinen 
soll, wird als String eingegeben. So braucht kein Daten- 
kanal eröffnet zu werden, um die Tastatur abzufragen. 


70: Wenn ein 'L' eingetastet wird, PLOTtet das Programm 
eine Linie von oben links nach unten rechts durch das Gra- 
fikfenster. 


80 bis 100: Acht Pixel von GRAPHICS 8 sind in einem Byte 
zusammengefaßt. Die Daten einer Zeile verteilen sich also 
auf 40 Byte. In diese 40 Speicherzellen kann das Bit-Muster 
des aufgerufenen Zeichens geschrieben werden. 


Natürlich ist es denkbar, die (Schrift-) Zeichen in der 
Waagerechten auch feiner zu positionieren, dann müßte aber 
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ein Daten-Byte des Zeichens auf zwei (nebeneinander liegen- 
de) Speicherplätze der SM verteilt werden. Dabei verändern 
sich die Wertigkeiten der einzelnen Bit. Bei der Verschiebung 
um einen einzelnen Bildpunkt nach rechts wird aus der 
oberen Speicherzelle das Bit O in die folgende Adresse ver- 
schoben und landet dort als Bit 7. Ein solches Fein-Ver- 
schieben in horizontaler Richtung wäre also mit sehr viel 
Rechenaufwand verbunden. 





184 2 16 2 1 1 u 2 EB LH 2 1 


Das ursprüngliche Bit-Muster hat den Dezimalwert 27. Sollen 
die bewirkten Bildpunkte um eins nach rechts verschoben 
werden, erhält die erste Speicherzelle den Dezimalwert 13, 
die folgende, eine Stelle tiefer liegende, den Wert 128. Dabei 
wäre aber auch noch zu berücksichtigen, daß in der zweiten 
Adresse bereits ein Wert vorhanden ist, der natürlich durch 
diese Operation nicht gelöscht werden darf, während in die 
obere Zelle möglicherweise auch ein Bit von der noch davor 
liegenden Adresse hineingeschoben wird. 


110 bis 130: In vertikaler Richtung kann das Zeichen belie- 
big positioniert werden. 159 Zeilen bilden das Grafik-Fenster 
von GRAPHICS 8. Die hier erfragte Position bezieht sich auf 
die Speicherzelle, in der das erste Byte des Zeichens abge- 
legt werden soll. Die übrigen sieben Byte liegen in den 
Zeilen darunter. Deshalb können Zeilen-Werte von O bis 152 
(152+7=159) eingegeben werden. 


200: Die SM-Start-Adresse. 


210: errechnet den Offset. Da nur Grußbuchstaben eingege- 
ben werden sollen, genügt diese eine Formel. Sie ermittelt 
den ATASCII-Wert des Zeichens, das aus dem String entnom- 
men wurde (ASC(Z$)), findet den internen Code durch Sub- 
traktion von 32 und multipliziert diesen Wert mit 8. 


220 bis 240: schreiben die acht Daten-Byte des aufgerufenen 
Zeichens in die entsprechenden Zellen des Bildschirmspeichers. 
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SM ist die Start-Adresse des Bildschirmspeichers, X die 
Spaltenposition. Die Zeilenposition Y muß mit 40 multipliziert 
werden, da die Speicherzellen für untereinander liegende 
Bildschirmpositionen 40 Byte auseinander liegen, oder anders 
gesagt, eine Bildschirmzeile belegt 40 Byte. Das gleiche gilt 
für J, da die acht Byte des Zeichens untereinander auf dem 
Bildschirm landen sollen. 57344 ist die Start-Adresse des 
Zeichensatzes, OFF der Offspring eines Zeichens und J liest 
die acht Byte des Bit-Musters. 


Sie können mit diesem Programm beliebig viele Zeichen in 
das Grafik-Fenster von GR.8 schreiben. Beachten Sie, wie 
jedes Zeichen eine Fläche von acht mal acht Punkten belegt 
und dadurch andere Zeichen ganz oder teilweise löscht. Be- 
achten Sie auch, wie die Diagonale beim Überschreiben mit 
Zeichen gelöscht. wird, wie die Linie selbst aber in schon 
bestehende Zeichen hineingeschrieben wird. 


Nach diesem Prinzip der direkten Adressierung werden auch 
die Schriftzeichen im folgenden Testbild eingefügt: 


® REM TESTBILD.BI2 

18 DEG :DIN C$(48):POKE 82,8:? CHR$(125):? :? ” BI 
TTE 48 TEST-ZEICHEN EINGEBEN: ” 

28 ? :? :? "CNUR MAJUSKELN + ZIFFERN /ATASCII 32-95)” 
30 ? ” ”".? :IN 
48 GRAPHICS 24:COLOR 1: 1®=PEEK(88)+PEEK(89)x256: 2=573 
44 

59 T=2+5248: E=2+37x8:5=2+51%8:B=2+34%8: I=2+41%8:L=2+4 
4%X8:D=2+36*8: KA=2+8%8:C0=2+99*8: K2=2+9x8 

60 21=2+17%8:29=2+25%8:28=2+24%8: 24=2+20%8: K=Z+43*8:H 
=2+40x8: ZK=2+12%8:C00=2+35*8: 22=Z+58x8 

188 FOR J=8 TO 7 

118 POKE 18+816+Jx40 ,PEEKCT+J) 

128 POKE 18+817+Jx49,PEEK(E+J) 

138 POKE 19+818+Jx40,PEEK(S+J) 

148 POKE 18+819+Jx49 ,PEEKCT+J) 

158 POKE 18+828+Jx40,PEEK(CB+J) 

168 POKE 18+821+Jx49,PEEK(I+J) 

178 POKE 18+822+Jx40,PEEK(L+J) 

1808 POKE 19+823+Jx48,PEEK(D+J) 

20808 POKE 18+2616+Jx48 ,PEEKCKA+J) 

218 POKE 18+2497+Jx49 ,PEEK(C+J) 

228 POKE 10+2458+Jx40 ,PEEKCKZ+J) 

238 POKE 18+2419+Jx48,PEEK(Z+J) 

248 POKE 19+2428+Jx*49 ,PEEK(Z1+J) 

2580 POKE 18+2461+Jx49, PEEK(ZY+J) 
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2608 
270 
388 
318 
328 
338 
3408 
358 
360 
378 
4808 
4108 
4208 
430 
450 
4608 
470 
4808 
588 
518 
528 
538 
>58 
960 
578 
>88 
6508 
618 
620 
630 
5508 
660 
670 
580 
65908 
708 


POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


POKE 
POKE 


POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
NEXT 


18+2502+Jx*48,PEEK(Z28+J) 
18+2623+J*48,PEEK(CZ24+J) 
I18+4856+J%*48,PEEKCK+J) 
18+4977+J*48 ,PEEKCH+JD 
I8+58018+Jx48,PEEKCK+J) 
I8+59059+Jx48 ,PEEKCZK+J) 
I18+5060+J%*%48,PEEKCZ+J) 
I18+5021+Jx48,PEEKCCC+J) 
I18+4982+J%*48,PEEKCL+J) 
18+4863+Jx*X48 ,PEEKCZZ+J) 
18+3687+Jx40 ,PEEKC(2+128+J) 
18+3680+Jx48,PEEK(CZ+128+J) 
18+3719+Jx498,PEEKCZ+280+J) 
I18+3712+Jx48 ,PEEKCZ2+208+J) 
I18+3646+Jx40 ,PEEKCZ+136+J) 
18+3721+Jx48 ,PEEK(CZ+136+J) 
18+3678+Jx498,PEEK(CZ2+192+J) 
18+3753+Jx48,,PEEK(Z2+192+J) 
I18+3685+J*X48,PEEKCZ2+144+J) 
18+3762+Jx40 ,PEEKCZ2+144+J) 
18+3637+J*X48 ,PEEKCZ+184+J) 
I18+3794+JxX48,PEEKCZ+184+J) 
18+3564+Jx48,PEEKCZ+152+J) 


18+3803+Jx48 ,PEEK(Z+152+J) 
18+3596+Jx48 ,PEEK(CZ+176+J) 


18+3835+Jx408 ,PEEK(Z2+176+J) 
18+3523+Jx48,PEEK(Z+168+J) 
18+38443+Jx48,PEEK(Z+168+J) 
18+3555+Jx40,PEEK(Z2+168+J) 
18+3876+Jx408 ,PEEK(CZ2+168+J) 
18+3482+Jx48 ,PEEK(CZ+168+J) 
18+3885+Jx48,PEEK(CZ+168+J) 
18+3514+Jx48 ,PEEK(Z+1608+J) 
18+3917+Jx48 ,PEEKCZ+168+J) 
J 


PLOT 8,08:DRAUTO 319,8:DRAUTO 319,191:DRAWUTO 8,191 


:DRAWTO 8,8:PLOT 8,8:DRAUTO 319,191:PLOT 319,8:DRAUTO 
8,191 


7108 
7208 
738 
7408 
758 
768 
78 
788 
790 


98 


FOR W=8 TO 368 

X1=C05S(W)%95+159: Y1=5SINCWIX%95+95 
x2=C05(W)%95+159: Y2=5SIN(CW)%55+95 
X3=C0S(CW)*55+159:Y3=SINCU)X55+95 
X4=C05CW)%15+159:Y4=5SINCWU)%15+95 

PLOT X1,Y1:PLOT X2,Y2:PLOT X3,Y3:PLOT X4,Y4 

NEXT W 

FOR L=8 TO 64 STEP 8:PLOT L,8:DRAWTO L,191:NEXT L 
FOR L=255 TO 311 STEP 8:PLOT L,8:DRAUTO L,191:NEX 


TL 

888 FOR J=8 TO 7:READ Q:POKE 18+8+Jx49,Q:POKE I8+31+J 

x48,Q:POKE 18+7368+Jx48,Q:POKE I18+7391+J*48,@:NEXT J 

818 FOR J=8 TO 7:READ Q:POKE 18+329+Jx48,@:POKE 18+35 

8+J%*48,Q:POKE I18+7049+Jx40,Q:POKE 18+7070+Jx48,Q:NEXT 
J 

8208 FOR J=8® TO 7:READ Q:POKE 18+650+J*x48,4:POKE 18+66 

9+Jx48,Q:POKE 18+6739+Jx40,Q:POKE I8+6749+Jx48,Q:NEXT 
J 

988 TRAP 990 

918 FOR U=1 TO 49:FOR J=8 TO 7:POKE 18+6399+U+Jx*48,PE 

EKCZ+CASCCCSCU,UJ)-32)K8+J): NEXT J:NEXT U 

998 DATA 85,170,85,170,85,170,85,178,204,2804,51,51,28 
4,204,51,51,2490,240,248,248,15,15,15,15 


30: Der Benutzer kann bis zu 40 Zeichen eingeben, die im 
unteren Teil in das Testbild eingefügt werden. 


50 und 60: berechnen die Start-Adressen der im Testbild 
verwendeten Zeichen und Buchstaben. 


100 bis 690: Die Zeichen werden in den Bildschirmspeicher 
gePOKEt. 


700 bis 790: PLOTten den grafischen Teil des Testbildes. 


800 bis 820: fügen frei gestaltete Grafikzeichen ein, deren 
DATA in Zeile 990 abgelegt sind. 


900: verhindert den Programmabbruch mit ERROR-, denn in 
Zeile 


910: werden die 40 vom Benutzer eingegebenen Zeichen ver- 
arbeitet. Dazu ist die Schleife auf 40 Durchläufe eingestellt. 
Wenn aber eingangs weniger als 40 Zeichen eingegeben wur- 
den, würde das Programm abgebrochen, wenn nicht in 900 
die TRAP-Falle aufgestellt wäre. U zählt die 40 Spalten- 
positionen, J die acht Daten-Byte eines Zeichens. 6399 ist 
die Adresse im Bildschirmspeicher, in die das oberste Bit- 
Muster des ersten Zeichens geschrieben werden muß. C$(U,U) 
nimmt das U-te Zeichen aus C$ heraus und ASC wandelt den 
String-Ausdruck in einen ATASCII-Wert um. Durch -32 wird 
der ATASCII-Wert in internen Code umgewandelt. 


Z hat in Zeile 40 den Wert 57344 bekommen, das ist die 
Start-Adresse des Zeichensatzes. Es ist sinnvoll, Zahlenwerte 
in einer Variablen zu erfassen, wenn sie mehrmals in einem 
Programm benötigt werden. Es erleichtert nicht nur das 
Schreiben des Programms sondern spart auch Speicherplatz 
ein, weil das Programm dadurch kürzer wird und eine ein- 
zelne Variable weniger Speicher belegt als ein Zahlenwert. 


99 


3.3.3 Bild-Daten speichern 


Wenn Sie das Programm TESTBILD.BI2 laufen lassen, dauert 
es 4'45", bis die gesamte Grafik aufgebaut ist, was haupt- 
sächlich durch die aufwendigen Berechnungen für die Ellipse 
und die Kreise verursacht wird. Es ist schade, ein Bild zu 
löschen, was mit einem solchen Rechenaufwand erzeugt wor- 
den ist. Wie der Bildschirminhalt einer hochauflöschenden 
(HIRES) Grafik als Hardcopy (oder screen dump) auf dem 
Matrix-Drucker der Nachwelt erhalten werden kann, lesen 
Sie im Kapitel 4. 


Außer in Form kleiner schwarzer Punkte auf weißem Papier 
kann das Computer-Kunstwerk aber auch 'soft' auf einer 
Diskette gespeichert werden. Das folgende Programm bewahrt 
die kostbaren Bild-Daten in einem File mit dem Namen 
BILD8SSM.DAT auf: 


8 REM BILDSSML.BI2 

1889 SM=PEEK(C8SSI+PEEK(C8IIK2SE 

1818 OPEN #1,8,8,”D1:BILDSSM.DAT” 

18298 FOR J=8 TO 7679:PUT #1,PEEKCSM+JI:NEXT J 


19838 CLOSE #1 
1000: berechnet die Start-Adresse des Bildschirmspeichers. 


1010: eröffnet einen Schreib-Kanal zur Diskettenstation 1 für 
ein File mit dem Namen BILD8SM.DAT 


1020: und diese FOR-NEXT-Schleife liest die 7680 Daten-Byte 
aus dem Bildschirmspeicher (PEEK(SM+J)) und schreibt sie 
auf die Diskette. 


1030: schließt den Datenkanal. 


Das File belegt übrigens 62 Sektoren auf der Diskette, also 
etwa ein Achtel der gesamten Diskette. Achten Sie also 
darauf, daß noch genügend Platz auf der verwendeten Dis- 
kette vorhanden ist, bevor Sie dieses Programm laufen 
lassen. 


Nachdem die 7,5 kByte (7680 Byte) Daten in demFile abgelegt 
sind, können sie auf umgekehrten Wege genauso leicht und 
schnell wieder in den Bildschirmspeicher hineingePOKEt wer- 
den: 


8 REM BILDSSME.BI2 

1188 OPEN #1,4,8,"D1:BILDSSM.DAT” 

1118 GRAPHICS 24:SNM=PEEK(C88) +PEEKC89)x256 

1128 FOR J=8 TO 7679:GET #1,D:POKE SM+J,D:NEXT J 
1138 CLOSE #1 
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1158 GOTO 1158 


1100: öffnet einen Lese-Kanal zur Diskettenstation I und dem 
File BILD8SM.DAT, das die Bild-Daten enthält. 


1110: natürlich muß GR.8 (ohne Textfenster) eingeschaltet und 
die Start-Adresse des Bildschirmspeichers errechnet werden. 


1120: Diesmal liest die FOR-NEXT-Schleife die Daten-Byte von 
der Diskette und schreibt sie in die Speicherzellen der SM 
hinein. 


1130: Datenkanal zu und 


1150: eine Zeile, die das Ende des Programms verhindert. 
Die Grafik (GR.24) würde sonst gelöscht, um das READY 
(GR.O) zu zeigen. 


Die 7680 Speicherzellen zu füllen, dauert mit diesem Pro- 
gramm 2'30'". Das Testbild ist also fast doppelt so schnell 
aufgebaut, wie durch das Programm TESTBILD.BI2. 


Wie lange es dauert, mit PLOT und DRAWTO eine Grafik auf- 
zubauen, ist abhängig davon, wie komplex das Bild ge- 
gliedert ist und ob umfangreiche Berechnungen durchgeführt 
werden müssen, um die PLOTs zu ermitteln, wie z.B. bei 
Kreisen und Graphen aller Art. 


Einen in Daten-Byte abgespeicherten Bildinhalt in den Bild- 
schirmspeicher zu laden, dauert immer genau gleich lange, 
weil unabhängig von der Gestalt der Grafik immer genau 
7680 Daten übertragen werden müssen. 
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3.4 Bunte Zeichen 


Mit dem behandelten Wissen über die Struktur des Zeichen- 
satzes und das Format, in dem Farb-Daten und Bit-Muster 
vom Rechner verarbeitet werden, sind auch die Text-Modi 
GRAPHICS 12 und 13 leicht zu verstehen. 


In GR.DO werden in den Zellen des Bildschirmspeichers Dezi- 
malwerte der an der entsprechenden Stelle des Bildschirms 
darzustellenden Zeichen in Werten des internen Codes abge- 
legt. Der Rechner holt sich also aus der Bildschirm-Zelle 
den internen Code des Zeichens. Mit diesem Wert findet er 
im Zeichensatz-Speicher die Daten-Byte, die die Bit-Muster 
des Zeichens enthalten, und diese Bit-Muster werden auf die 
Bildfläche geschrieben. Bei dieser Darstellung der Zeichen 
hat jeder der acht mal acht Punkte, die eine Schreibstelle 
ausfüllen, ein Bit Information: Bit gesetzt - Pixel in COLOR 
1, Bit nicht gesetzt - Pixel in COLOR 0. 


Bei den vierfarbigen Grafik-Modi werden jeweils zwei Bit für 
die Farbinformation benötigt. Ein Daten-Byte nimmt die In- 
formation für vier Pixel auf. 


In GRAPHICS 12 und 13 können ebenfalls vier Farbregister 
angesprochen werden, also jeweils zwei Bit bestimmen den 
COLOR-Wert für ein Pixel. Dadurch verdoppelt sich der In- 
formationsgehalt. Um das auszugleichen, sind die Zeichen in 
diesen beiden Betriebsarten nur vier Pixel breit, jeder Bild- 
punkt des Zeichens ist aber auf dem Bildschirm zwei Bild- 
punkte breit, so daß die bunten Zeichen genauso breit auf 
der Mattscheibe erscheinen, wie der Standard-Zeichensatz. 
Die Auflösung ist gröber, dafür stehen verschiedene Farben 
zur Verfügung. 


Während die Zeichen in GR.DO die Auflösung und Farbmög- 
lichkeiten von GR.8 haben, beziehen sich die Zeichen in 
GR.12 auf die Möglichkeiten von GR.15. 


Wenn Sie GRAPHICS 12 einschalten, dann zeigt der Vektor in 
Adresse 756 auf die Start-Adresse des Standard-Zeichensatzes 
und die aufgerufenen Zeichen beziehen ihre Daten von hier. 
Durch die gerade beschriebene Farbeigenschaft von GR.12 
werden die Daten-Byte aber nicht als Bit-Muster interpretiert, 
sondern als Farbinformation umgesetzt. Aus diesem Grund er- 
scheinen in GRAPHICS 12 und 13 kunterbunte Zeichen die nur 
noch mit Mühe zu entziffern sind. 


Die folgenden Abbildungen zeigen noch einmal den Unterschied 
in der Interpretation eines Daten-Byte in GR.O als Bit-Muster 
und in GR.12 und 13 als Farbinformation. 
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Das Daten-Byte mit dem Dezimalwert 228 


Bit 6 54 9302 1 0 
228 Tr] Jofofrfele, 
Dezimalwert 128 64 32 16 8 a 2 1 


wird also nicht als Bit-Muster wie in GR.O interpretiert, 





Bit 654302710 
Dezinalwert 12864 2168 4 2 1 


sondern als Farbinformation, 










sit 7 ls ala 2lı oo 
228 ff fofefr[efe: 
Dezimaluwert 


128 64 |32 1618 42 | 
cOo.3 | CO.2 | CO.1 | CO.O 


die vier Pixel verschiedener Farben bewirkt. 














Bit ern u 
228 FE | 
Dezimalwert 


128 64132 6|8 4|2 1 
co.3 | CO.2 | co.1 | CO.O 
Da die Pixel in GR.12 und 13 doppelt so breit sind wie in 
GR.O wird der gleiche Speicherumfang benötigt. Ein Zeichen 


ist ein Byte breit, 40 Zeichen nimmt der Bildschirm neben- 
einander auf, also benötigt eine Zeile 40 Byte Speicher. 


Um diese beiden Betriebsarten sinnvoll zu nutzen, ist es 
also nötig, einen speziellen Zeichensatz zu definieren, der 
die Farbinformationen berücksichtigt. Wie ein Zeichensatz 
neu entworfen werden kann, ist bereits in Abschnitt 1.2.2 
eingehend beschrieben worden. 


Auflösung und Farbigkeit dieser Modi entspricht dem Grafik- 
gang 15. Der große Vorteil liegt darin, daß jeweils acht 
Byte durch einen einfachen PRINT-Befehl aufgerufen und an 
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eine beliebige Bildschirmstelle gebracht werden können. Das 
ist bei feiner Farbverteilung wesentlich handlicher und viel 
schneller, als jedes einzelne Farbpünktchen zu PLOTten. 


8 REM CHRGR12.BI2 
1 GOSUB 32631 
2 GRAPHICS 12:POKE 756,MND 


KHHHRHHHR”, NEXT X 

4 END 

32631 DIM MSP$(88):POKE 756,224: MND=PEEK(186)-4:C5T=N 
NDx*x256: POKE 186,MND:GRAPHICS ® 

32632 FOR X=1 TO 48:READ ACHR:MSP$CX,X)I=CHR$SCACHRI:NE 
XT X 

32633 DATA 104,104,133,213,1904,133,212,1804,133,215,10 
4,133,214,152,72,138,72,162,4,160,0,177,212,145,214 
32634 DATA 209,208,249,230,213,230,215,202,208,2480,10 
4,1780,1043,168,96 

32635 I1=USRCADRCMSP$) ,224%256,C5ST) 

32636 FOR X=1 TO 3:FOR 1=8 TO 7:READ TK:POKE CST+X*8+ 
I,TK:NEXT I:NEXT X 

32708 DATA 85,85,125,125,125,125,85,85 

32701 DATA 8,8,0,0,0,8,0,0 

32782 DATA 255,255,195,195,195,195, 255,255 

32767 POKE 756,MND: RETURN 


1: springt erst einmal in das bekannte Unterprogramm zum 
Laden eines frei definierten Zeichensatzes. 


32636: verändert die Daten des ersten bis dritten Zeichens. 
Die DATA dafür finden sich in den Zeilen 


32700 bis 32702: Verwendet werden nur das erste und dritte 
Zeichen. Das zweite Zeichen ist die Anführung ("). Dieses 
Zeichen kann in einem String nicht enthalten sein, weil das 
Betriebssystem Anführungsstriche als Zeichen für Anfang 
oder Ende des String selbst ansieht. Sollen trotzdem Anfüh- 
rungsstriche gePRINTet werden, so geht das nur über die 
CHR$-Anweisung (? CHR$(34)). 


2: Nach Aufruf eines GRAPHICS muß der Vektor in 756 re- 
stauriert werden. 


3: Die PRINT-Anweisung bringt die beiden neu gestalteten 
Zeichen in das Grafik-Fenster. Durch die FOR-NEXT-Schleife 
wird der gesamte Bildschirm gefüllt. 


Das Ausrufezeichen ist das erste Zeichen im Charakter-Set 
(nach dem Leerzeichen, das ist das nullte). Die Raute ist 
das dritte Zeichen. Das '!' bringt also die DATA aus Zeile 
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32700 auf den Bildschirm, die Raute die Daten-Byte aus Zeile 
32702. 


Es muß noch erwähnt werden, daß in GRAPHICS 12 und 13 
eine fünfte Farbe aufgerufen werden kann. Wird nämlich ein 
Zeichen gePRINTet, dessen interner Code größer als 127 ist, 
dann wird das Zeichen in GR.OD invers dargestellt. Bei bun- 
ten Zeichen ist eine inverse Darstellung nicht sehr sinnvoll. 
Deshalb bewirkt das siebente Bit im internen Code (Dezimal- 
wert 128), daß sich der COLOR-Wert 3 (binär 11) nicht auf 
Farbregister 710 bezieht, sondern 711 anspricht. 


Es besteht folgende Beziehung zwischen COLOR-Werten und 
Farbregistern: 


binär 0 0 COLOR 0 Farbregister 712 (Hintergrund) 
binär O 1 COLOR 1 Farbregister 708 (Grafikpunkt 1) 
binär 1 0 COLOR 2 Farbregister 709 (Grafikpunkt 2) 
binär 1 1 COLOR 3 Farbregister 710 (Grafikpunkt 3) 


Farbregister 711 (Grafikpunkt 3) 


Ändern Sie in Zeile 3 des Listings einige Zeichen des Strings 
in Inverse um, und beobachten Sie, welche Farbanteile der 
Zeichen den Farbton wechseln. 
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4 Drucker 


Was man schwarz auf weiß besitzt, kann man bekanntlich 
getrost nach Hause tragen. Doch dem Computer das Schreiben 
beizubringen, geht nicht ohne Druck. Als Computer-Neuling 
begnügt man sich gerne damit, auf der Mattscheibe des 
häuslichen Fernsehapparates zu lesen, was der Rechner zu 
sagen hat. Mit der Zeit entsteht aber ein immer größeres 
Bedürfnis, handfeste Unterlagen zu bekommen. 


Es fängt damit an, daß man in längeren Programmen nach 
Fehlern suchen muß und auf dem Bildschirm immer nur eini- 
ge Zeilen überprüfen kann. Da ist nur schwer Überblick zu 
bewahren. Bei einem Ausdruck hat man nicht nur das ge- 
samte Programm vor Augen, man kann schriftliche Korrektu- 
ren anbringen. 


Unersetzlich wird der Drucker bei der Erstellung von Doku- 
menten. Die schönste Computer-Grafik verschwindet von der 
Bildfläche, wenn der Strom abgeschaltet wird. Einen Aus- 
druck kann sich wer will, sogar an die Wand hängen. Und 
bei Anwendungen wie Textverarbeitung, Adressenverwaltung 
oder Buchführung (buhah!) ist der Drucker sogar Vorausset- 
zung. 


Doch mit einem weiteren Peripherie-Gerät kommen auch weite- 
re Probleme ins Haus. Schließlich ist jeder Computer-Typ ein 
Individualist, jeder Drucker-Typ aber nicht weniger. Und 
zwei Individualisten unter einen Hut zu bringen, ist immer 
wieder ein Kunststück für sich. 


Überhaupt keine Probleme haben Sie, wenn Sie sich zu Ihrem 
ATARI-Computer einen ATARI-Drucker kaufen. Geräte der 
gleichen Marke sind natürlich aufeinander abgestimmt. Sie 
werden einfach verkabelt und ab geht die Post. Leider bietet 
ATARI keinen wirklich leistungsfähigen Drucker an. Wer also 
etwas professionellen Komfort sucht, muß sich anderswo um- 
sehen (und sehen, wie er zurecht kommt). 
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4,1 Steuerung 


Um Computer und Drucker (verschiedener Fabrikate) mitein- 
ander zu verbinden, reicht ein einfaches Kabel nicht aus. 
In der schönen neuen Computer-Welt ist eben nichts einfach, 
was auch kompliziert zu lösen ist (wenn es um Marktanteile 
geht). Jeder Hersteller braut sein eigenes Hardware-Süpp- 
chen, das die Käufer auslöffeln dürfen. 


Um Rechner und Drucker auf einander einzustimmen braucht 
es ein Interface, das genau auf beide Geräte abgestellt ist. 
(Lassen Sie sich bloß keinen Drucker andrehen, ohne ein 
passendes Interface!) Für sehr viele Drucker geeignet ist 
das MPP-1150 Parallel Printer Interface for ATARI Computers 
von Microbits. Für sehr viele, nicht für alle. 


Aber selbst mit dem teuersten Drucker und einem funktionie- 
renden Interface können Sie nicht alles auf Papier bringen, 
was der Bildschirm zu zeigen hat. Normale Interfaces arbei- 
ten im sog. Transparent Mode, d.h. sie nehmen die Daten- 
Byte, die der Rechner ihnen sendet lediglich auf und geben 
sie unverändert an den Drucker weiter. Ein solches Inter- 
face ermöglicht also nur, daß überhaupt Daten fließen. Und 
zwar ASCII-Codes. 


Der Computer sendet eine 65 (ATASCII 65 = "A"), der Drucker 
empfängt 65 und druckt ein A. Der Drucker übernimmt nicht 
das Bitmuster des ATARI "A". Er verfügt über einen eigenen 
Zeichensatz, der bestimmt, welche Gestalt das 'A' bekommt. 
Inverse Zeichen mag kein Drucker von sich geben. Und den 
speziellen Pseudografik-Zeichensatz versteht ein gewöhnlicher 
Drucker auch nicht. Er kann nur drucken, was in seinem 
Speicher an Zeichen definiert ist. Anspruchsvollere Geräte 
bieten dafür die Möglichkeit, daß der Anwender einen eige- 
nen Character-Set definiert (download character set), über 
den beliebige Zeichen eingegeben werden können. 


Einig sind sich (international) alle Geräte nur über den 
ASCII-Code. Allerdings wurde im Kapitel 1.2 schon darauf 
hingewiesen, daß ATARI die ASCII-Codes 0 bis 31 mit 
Grafik-Zeichen belegt hat, während der Drucker diese Codes 
für Steuerbefehle wie Zeilenvorschub (LF), Formularvorschub 
(FF) und ähnliches nutzt. Wenn Sie einem Drucker mit Ihrem 
ATARI den Auftrag erteilen: Drucke Grafik-Zeichen diagonale 
Linie (LPRINT"(CONTROL) G"), das ist (AT)JASCII 7, dann 
wird der Drucker entsprechend seiner Code-Liste sein Klin- 
gelsignal erklingen lassen. 


Die Ausgabe von Daten an den Drucker erfolgt also durch 


107 


das Kommando LPRINT (LP.). Im übrigen ist das Format 
dieses Befehls aufgebaut wie die PRINT-Anweisung an den 
Bildschirm. Sie können also eingeben: 


LPRINT "A" oder: LPRINT CHR$(65) 


Beide Anweisungen veranlassen den Drucker, ein großes "A" 
auf das Papier zu hämmern. 


In der gleichen Form werden auch die Steuerzeichen an den 
Drucker geschickt: 


LPRINT CHR$(7) 
läßt den Signalton des Druckers erklingen, 
LPRINT CHR$(10) 


veranlaßt den Drucker, die Walze um eine Zeile vorzubewe- 
gen. 


Nun kommt heute keine Drucker mehr mit den 32 Steuerzeichen 
aus. Viele zusätzliche Funktionen haben weitere Steuer- 
Sequenzen nötig gemacht und die sind natürlich bei (fast) 
jedem Drucker anders. Im folgenden sollen Sie Drucker vier 
verschiedener Firmen kennnenlernen und erfahren, wie sie 
die Aufgabe bewältigen, das Testbild aus Kapitel 3.3.2 aus- 
zudrucken. 


4.2 Hardcopy 


Solange es darum geht, einfachen Text zu drucken, unter- 
scheiden sich Drucker nur in der Geschwindigkeit, im Bedie- 
nungskomfort und im Schriftbild. Die meisten Nadeldrucker 
bieten aber heute die Option, jede Drucknadel einzeln anzu- 
sprechen und durch den Druck einzelner Punkte eine belie- 
bige Grafik zu erzeugen, in sich in diesem Punktraster dar- 
stellen läßt (dot matrix graphic). 


Das Prinzip ähnelt der Darstellung und Datenerfassung bei 
der Bildschirm-Grafik. Jeder einzelne Druckpunkt wird einem 
Bit zugeordnet, acht Bit werden zu einem Daten-Byte zusam- 
mengerechnet. Dieser Dezimalwert repräsentiert ein bestimm- 
tes Bit-Muster und veranlaßt die entsprechenden Druck- 
nadeln zu drucken oder nicht zu drucken. 


Der einzige Unterschied besteht darin, daß beim Bildschirm 
die Bit zeilenweise zu Daten-Byte zusammengefaßt werden. 
Das ist sinnvoll, weil die Bildröhre zeilenweise arbeitet. Der 
Druckkopf arbeitet jedoch spaltenweise. Er verfügt über acht 
Drucknadeln, die untereinander angeordnet sind. Eine neun- 
te Nadel dient zum Unterstreichen. In jedem Arbeitsschritt 
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erzeugt der Drucker eine Spalte von acht (neun) Punkten 
und aus mehreren solcher Punktspalten setzt sich ein Schrift- 
zeichen zusammen. 


Bei der Dot-Grafik wird das Bit-Muster einer Punktspalte in 
einen Dezimalwert umgerechnet. Jeder Druckdraht ist einem 
der acht Bits zugeordnet. Üblicherweise wird der oberste 
Druckdraht vom MSB (Bit 7, dezimal 128) angesprochen, der 
unterste vom LSB (Bit 0, dezimal 1). 


Wurde der Drucker durch eine entsprechende Steuer-Sequenz 
auf Dot-Grafik eingestellt, dann interpretiert er die empfan- 
genen Daten-Byte nicht als ASCII-Codes, die er als Schrift- 
zeichen ausdrucken würde, sondern als Bit-Muster, die er 
durch Einzeldraht-Steuerung umsetzt. 


Theoretisch ist es nun kein Problem mehr, eine Grafik, die 
auf dem Monitor zu sehen ist, auf dem Drucker auszugeben. 
Wie die Daten der Bildschirm-Grafik im Speicher des Compu- 
ters zu finden sind, ist bereits bekannt. Sie müssen von 
dort also nur gelesen und als Dot-Grafik-Signale an den 
Drucker ausgegeben werden. 


Das wesentliche Probelm besteht darin, daß die Bit-Muster 
des Bildschirms horizontal zu Daten-Byte zusammengerechnet 
sind, der Drucker aber vertikal zusammengefaßte Bit-Muster 
erwartet. Für dieses Problem gibt es zwei grundsätzliche 
Lösungsmöglichkeiten. 


Man kann die Daten-Byte aus dem Bildschirmspeicher des 
Computers herauslesen, sie belassen, wie sie sind und als 
Dot-Grafik-Daten an den Drucker abgeben. Die Grafik vom 
Bildschirm entsteht dann auf dem Drucker um 90° gedreht. 
Das werde ich im folgenden als Druck in vertikaler oder 
Y-Richtung bezeichnen. 


Wenn in Y-Richtung gedruckt wird, muß das Hardcopy-Pro- 
gramm lediglich die Reihenfolge der Daten-Byte : umstellen. 
würden die Informationen aus dem Bildschirmspeicher in der 
Reihenfolge (vertikal) gedruckt, wie sie dort abgelegt sind, 
würde ein spiegelverkehrter Druck entstehen. In Y-Richtung 
müssen die Bildschirm-Daten also in irgendeiner Weise rück- 
wärts verarbeitet werden. Entweder die (Bildschirm-) Spal- 
ten werden fortlaufend gedruckt, in jeder Spalte aber die 
Daten rückwärts verarbeitet, oder die Spalten werden rück- 
wärts abgefragt, innerhalb der Spalten die Speicherzellen 
aber fortlaufend gelesen. Die Druckergebnisse sind jeweils 
identisch, aber um 180° auf dem Blatt gedreht. Da die 
Daten-Byte selbst unverändert bleiben, ist eine Hardcopy 
von GRAPHICS 8 (bzw. 24) auf diese Weise in wenigen Minu- 
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ten fertig. 


Die zweite Methode ist wesentlich aufwendiger. Das Programm 
holt sich jeweils acht auf dem Bildschirm untereinander 
liegende Byte aus dem Speicher, spaltet diese acht Byte in 
ihre Bit-Muster auf und faßt sie spaltenweise zu drucker- 
gerechten Daten-Byte zusammen. Auf diese Weise errechnet, 
benötigt eine Hardcopy etwa fünfzehn Minuten. Der entschei- 
dende Vorteil liegt nur darin, daß in X-Richtung gedruckt 
wird. 


Warum ist das ein Vorteil? 


Lassen Sie TESTBILD.BI2 laufen. Wenn Sie die Grafik auf 
der Mattscheibe haben, nehmen Sie einen Zirkel und messen 
den großen Kreis nach. Sie werden (erstaunt?) feststellen, 
daß es gar kein Kreis ist. Die Bildpunkte des Monitors 
haben in der Zeile einen größeren Abstand als die Zeilen 
voneinander. Diese Überdehnung durch die Raster-Auflösung 
heißt auf Neudeutsch Overscan. Ein durchschnittlicher Wert 
für Bildschirme liegt bei 10% horizontal. 


Mit bloßem Auge nehmen wir diesen Overscan kaum wahr, 
obwohl 10% eigentlich eine ganze Menge sind. Wir nehmen 
diese Abweichung auch nur deshalb nicht wahr, weil das 
Bild horizontal überdehnt ist. In vertikaler Richtung würde 
schon eine geringere Abweichung unangenehm auffallen. Un- 
sere Wahrnehmung ist an eine waagerechte Verzerrung ge- 
wöhnt. Alles was wir täglich sehen, betrachten wir unter 
einem schrägen Blickwinkel. Die kreisrunde Kante einer 
Tasse oder Büchse sehen wir fast immer schräg von oben. 
Der optische Sachverhalt unserer Wahrnehmung ist also eine 
mehr oder weniger flache Ellipse. Unser Intellekt überlagert 
jedoch diese objektive Wahrnehmung. Wir wissen eben aus 
Erfahrung, daß ein Zylinder kreisförmig ist. Deswegen sehen 
wir das Oval als "Kreis" und dieser Vorgang wird uns nicht 
einmal mehr bewußt. Die Verzerrung durch schräge Drauf- 
sicht wird unbewußt ausgeglichen. Deshalb nehmen wir eine 
Überdehnung in horizontaler Richtung kaum wahr. Wir müssen 
dafür extra "hinsehen", 


Nun haben aber auch (fast) alle Drucker einen beachtlichen 
Overscan, wenn sie im Einzelnadelbetrieb arbeiten. Die acht 
Druckdrähte stehen dichter beisammen als die Punkte neben- 
einander gedruckt werden. Wie verschieden die Druckbilder 
unterschiedlicher Drucker aussehen, zeigen Ihnen die fol- 
genden Seiten. 


Ein für Nadeldrucker durchaus üblicher Overscan im Grafik- 
Modus beträgt ca. 20%. Eine solche Verzerrung ist sogar in 
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X-Richtung störend. In Y-Richtung ist eine solche Verzerrung 
unerträglich. (Vielleicht nicht für das Auge eines Techni- 
kers.) Der Vorteil des langsamen Hardcopy-Programms, das 
in X-Richtung arbeitet, liegt also im ästhetischen Bereich. 


Um einen Hardcopy-Ausdruck zu erhalten, muß als erstes der 
Zeilenvorschub des Druckers so eingestellt werden, daß 
zwischen den einzelnen Druckzeilen kein Freiraum bleibt, 
sondern auch in der Vertikalen die Punkte dicht an dicht 
stehen. Je nach Drucker-Typ kann der Zeilenzwischenraum 
auf n/72", n/144 und/oder n/216" eingestellt werden. 


Druckdraht 
1/216" 
1/72" 1/216" 
1/2106" 
Druckdraht 


Der Radius der Druckdrähte und der Abstand zwischen den 
Drähten betragen 1/216". Der Abstand der Druckdrähte von 
Mittelpunkt zu Mittelpunkt gemessen beträgt demnach 1/72", 
der halbe Abstand 1/144", 


Matrix-Drucker drucken normalerweise bi-direktional, also 
die erste Zeile von links nach recht, die zweite von rechts 
nach links. Dadurch wird die Zeit eingespart, die der 


Druckkopf benötigt, um vom Zeilenende zum linken Rand zu- 
rückzufahren. Allerdings führt diese Arbeitsweise auch zu 
minimalen Abweichungen im Druckbild. Wenn Sie sich die 
Listings in diesem Buch ansehen, können Sie feststellen, daß 
die Druckzeilen ein wenig gegeneinander versetzt sind. Wenn 
Sie z.B. die erste Ziffer der Zeilennummern betrachten, 
können sie diese Abweichung deutlich sehen. 


In einem Text ist diese kleine Verschiebung akzeptabel. Wenn 
Sie sich aber in einer Dot-Grafik eine senkrechte Linie vor- 
stellen und in jeder Zeile, also alle acht Punkte, eine klei- 
ner Bruch entstünde, wäre das sehr störend und unbefrie- 
digend. Einige Matrix-Drucker schalten deshalb im Grafik- 
Mode automatisch auf uni-direktionalen Druck um. Bei 
anderen Druckern muß dieses Kommando gesondert ergehen. 


Um den Drucker auf Dot-Grafik umzuschalten, braucht es 
eine Sequenz von Kommandos, die bei den verschiedenen 
Druckern sehr unterschiedlich ausfallen können. Grundsätz- 
lich aber besteht dieses Kommando aus zwei Teilen. Einmal 
muß der Grafik-Mode selbst eingeschaltet werden, dann muß 
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festgelegt werden, wie viele Daten-Byte als Bit-Muster für 
Dot-Grafik interpretiert werden sollen. Diese Anzahl wird in 
der Reihenfolge LO (low Byte) HI (high Byte) an den Drucker 
gesendet. Die Summe der Grafik-Daten ist also LO+HI*256 
oder umgekehrt, Grafik-Daten durch 256 teilen, der ganz- 
zahlige Teiler ist Hl, der Rest LO. 


Das gesammte Kommando für Dot-Grafik könnte lauten: 
LPRINT CHR$(27) ;CHR$(75) ;CHR$(LO) ;CHR$(HI ) 


wobei für LO und HI die entsprechenden Werte einzusetzen 
sind. 


Nun gibt es aber eine Schwierigkeit. Wenn das obige LPRINT- 
Kommando als BASIC-Zeile in einem Programm steht, dann 
endet diese Programmzeile mit einem RETURN (das auf dem 
Bildschirm nicht als Zeichen erscheint, im Speicher des Com- 
puters aber vermerkt ist. Wenn dieses Kommando an den 
Drucker ergeht, wird das RETURN vom Drucker als CR 
(carriage return) empfangen. CR hat den ASCII-Wert 13. Da 
der Drucker aber schon auf Grafik-Mode umgeschaltet ist, 
interpretiert er das Daten-Byte 13 als Bit-Muster und druckt 
es aus. Deshalb kann die LPRINT-Anweisung hier nicht ver- 
wendet werden. 


Es gibt aber eine zweite Form, Daten an ein Peripherie- 
Gerät, auch an einen Drucker, zu senden. Es wird ein 
Daten-Kanal eröffnet, in diesem Fall ein Schreib-Kanal an 
den Zeilendrucker und mit dem PUT-Befehl werden die ein- 
zelnen Daten-Byte abgesetzt. 


Das komplette Hardcopy-Programm (Druck in Y-Richtung) 
sieht dann so aus: 


® REM HARDCOPY.STA 

1 DIM D(191) 

38888 LPRINT CHR$(C27);CHR$SCS1)I;CHR$C16) ,CHR$C27),CHRS$ 
(85SI;CHR$C1) 

38828 SN=PEEK(88)I +PEEK(C89)x*256 

38838 FOR B=8 TO 39 

38848 FOR Z=8 TO 191 

38858 DCZI=PEEKCSM+ZXx48+B) 

38868 NEXT 2 

380878 OPEN #1,8,8,”"P:” 

38888 PUT #1,27:PUT #1,75:PUT #1,192:PUT #1,08 
38898 FOR P=191 TO 8 STEP -1:PUT #1,DCP)3:NEXT P 
38188 CLOSE #1 

38118 NEXT B 
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1: Die indizierte Variable D nimmt 192 Daten-Byte auf. 


Vor dem eigentlichen Hardcopy-Programm muß natürlich ir- 
gendein anderes Programm liegen, daß in GRAPHICS 24 eine 
Grafik auf die Mattscheibe und in den Bildschirmspeicher 
zaubern. 


Das vorliegende Hardcopy-Programm kann nur GRAPHICS 24 
ausdrucken. Für GR.8 müßte die Anzahl der gelesenen Zeilen 
von 192 auf 159 geändert werden. Bei den übrigen Grafik- 
Modi müßten weitergehende Überlegungen zur Umsetzung der 
Farben und der Größe der einzelnen Grafikpunkte angestellt 
werden. 


30000: In dieser Zeile wird der Zeilenabstand auf 16/144" 
eingestellt und uni-direktionaler Druck angeordnet. Diese 
Steuerkommandos gelten für den radix-10 (star). Bei anderen 
Modellen können andere Kommandos notwendig sein. Das Um- 
schalten auf uni-direktionalen Druck ist bei diesem Drucker 
im Grafik-Mode nicht erforderlich, es wird automatisch ver- 
anlaßt. 


30020: berechnet die Start-Adresse des Bildschirmspeichers. 


30030: Die wichtigste Überlegung ist, in welcher Reihenfolge 
die Daten-Byte aus dem Bildschirmspeicher gelesen und an 
den Drucker abgegeben werden. Dieses Programm druckt in 
Y-Richtung. Es druckt also in jeder Druckzeile eine Spalte 
des Bildschirms (192 Byte) aus. Auf einer Bildschirmzeile 
liegen 40 Daten-Byte nebeneinander. Der Drucker muß also 
40 Zeilen drucken. B zählt diese Zeilen. 


30040: Z zählt die 192 Daten-Byte, die ein Spalte auf dem 
Bildschirm füllen und zu einer Zeile im Drucker zusammen- 
gefaßt werden. 


30050: Die indizierte Variable D nimmt die 192 Daten-Byte 
auf. Der Ausdruck in der Klammer ermittel aus Z und B die 
jeweiligen Adressen im Bildschirmspeicher. 


30060: D wird mit 192 Daten-Byte gefüllt. 


30070: eröffnet einen Schreib-Kanal an den Zeilendrucker 
(line-printer). 


30080: ordnet Dot-Grafik an mit den Daten-Byte 27 und 75. 
192 (LO) und ® (HI) bestimmen die folgenden 192 Daten-Byte 
als Bit-Muster. 


30090: Die 192 Daten-Byte für eine Druckzeile werden rück- 
wärts (von 191 bis 0) an den Drucker abgegeben, damit der 
Druck nicht spiegelverkehrt entsteht. 
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30100: schließt den Datenkanal. 


Und so sieht das Testbild in Y-Richtung gedruckt (auf 
radix-10 von star) aus: 
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Wenn Sie das Buch um 90° drehen, damit Sie das Bild richtig 
sehen, fällt der Overscan ausgesprochen unangenehm auf. 
Deshalb nun ein Hardcopy-Programm, das in X-Richtung den 
Bildschirminhalt aufs Papier bringt: 


8 REM HARDCOPX.STA 

1 DIM DC319),C(7,7) 

38888 LPRINT CHR$C27);CHR$CS1I;CHR$C16) 

38828 SM=PEEK(88S)I +PEEK(C89)x*256 

38838 FOR 22=8 TO 23 

38848 FOR P=8 TO 39 

38858 FOR X=8 TO 7:FOR Y=8 TO 7:C(CX,YI=8:NEXT Y:NEXT 
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x 

389868 FOR 2=B TO 7 

38878 A=PEEKCSM+P+2x40+22*320) 

38888 IF A>127 THEN C(7,2)=1:A=A-128 
38898 IF A>63 THEN C(6,Z2)=1:A=A-64 
381088 IF A>31 THEN C(5,2)3=1:A=A-32 
38118 IF A>15 THEN C(4,2)=1:A=A-16 
38128 IF A>? THEN C(3,2)=1:A=A- 
38138 IF A>3 THEN C(2,2)=1:A= 
38148 IF A>1ı THEN C(1,2)=1:A 
38158 IF A>8 THEN C(B8,23=1 
38168 NEXT 2 

38218 FOR Y=8 TO 7 

39228 DCPx*8+7-Y)=C(CY,8)*128+CCY,1)*%64+C(Y,23*32+C(Y,3 
IK16E+CCY,4)x8+CCY,5)x*4+CCY,6)*2+C(Y,7) 

30230 NEXT Y 

38258 NEXT P 

38388 OPEN #1,8,8,”"P:” 

38318 PUT #1,27:PUT #1,75:PUT #1,64:PUT #1,1 

308328 FOR J=8 TO 319:PUT #1,DCJ):NEXT J 

38338 REM HIER PUT#1,18 EINFIGEN, WENN LF UNTERDRLUCKT 
38348 CLOSE #1 

38358 NEXT ZZ 

38368 LPRINT CHR$C27):CHR$(64) 


1: Die indizierte Variable D muß jetzt 320 Daten-Byte auf- 
nehmen können, weil auf dem Bildschirm 320 Punkte in einer 
Zeile liegen. Die doppelt-indizierte Variable C wird acht 
mal acht Bit aufnehmen. 


Hier steht das Grafik-Programm (z.B. TESTBILD.BI2) 


30000: stellt den Zeilenvorschub ein. Uni-direktionaler Druck 
wird nicht verordnet, weil der verwendete Drucker das auto- 
matisch einstellt. 


30030: Der Drucker druckt den gesamten Bildschirminhalt in 
24 Zeilen (zu je acht Punkten = 192 Punkte) aus. 


30040: Eine Bildschirmzeile belegt 40 Speicherzellen. 
30050: setzt die doppelt-indizierte Variable auf 0. 


30060 bis 30160: holen acht Daten-Byte aus dem Speicher, die 
auf dem Bildschirm untereinander liegen, spalten jedes ein- 
zelne Daten-Byte in seine Bits auf und speichern diese In- 
formationen in der doppelt-indizierten Variablen C. 


30210 bis 30230: rechnen die acht mal acht Bit spaltenweise 
zu acht Daten-Byte zusammen. 
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30310: Der Drucker muß hier auf 320 Grafik-Byte eingestellt 
werden (LO=64, HI=1). 


30320: Hier wird eine Zeile gedruckt, die 320 Punkte breit 
und acht Punkte hoch ist. 


30330: Drucker können so eingestellt werden, daß sie bei 
Empfang eines CR automatisch ein LF auslösen. Ist das 
automatische LF unterdrückt, muß hier ein Zeilenvorschub 
extra angeordnet werden. Statt PUT kann auch LPRINT CHR$ 
(10) geschrieben werden. (Wie Sie in dieser Zeile auch se- 
hen, gibt es immer Aerger mit den deutschen Umlauten. Wir 
sollten unsere Sprache noch staerker fuer Computer kompati- 
bel machen, oder?) 


30360: initialisiert den Drucker, d.h. alle Einstellungen für 
Zeilenabstand etc. werden so eingestellt, wie sie beim Ein- 
schalten des Druckers festgelegt werden. 


Und so sieht das gleiche Testbild aus, wenn es mit dem 
vorstehenden Programm auf dem genannten Drucker in X- 
Richtung umgesetzt wird: 


Der Overscan, der ja rein numerisch genauso stark ist wie 
im vorigen Druckergebnis, ist zwar wahrzunehmen, wenn 
man darauf achtet, fällt aber nicht so peinlich auf. 
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4.3 Fabrikate 


In diesem Abschnitt werden vier weitere Drucker-Modelle 
vorgestellt, die in ihrer Verschiedenheit das gesamte Spek- 
trum der Besonderheiten und Druckqualitäten ausleuchten. 
Die Auswahl der hier vorgestellten Typen stellt in keiner 
Weise ein Qualitätsurteil dar, sondern erfolgte lediglich 
unter dem Gesichtspunkt der Verschiedenheit in Steuerung 
und Druckergebnis bei Einzelpunkt-Grafik. 


Drei der vorgestellten Geräte lassen sich problemlos mit dem 
Interface MMP-1150 von Microbits mit dem ATARI verbinden. 
Die Firma star liefert für Ihre Drucker ein eigenes Inter- 
face. 


4.3.1 M-8510 von C.ITOH 


Der M-8510 ist ein Drucker der mittleren Preisklasse, der 
über alle üblichen Kommandos verfügt. In den Zeilen 30000 
und 30310 müssen die abweichenden Kommandos eingefügt 
werden. Eine Besonderheit bei diesem Gerät besteht darin, 
daß die Menge der Daten-Byte, die als Bit-Muster interpre- 
tiert werden sollen, nicht im Zwei-Byte-Format (LO, HI) ein- 
zugeben sind, sondern als vier einzelne Ziffern, die als 
ASCII-Wert gesendet werden müssen. Sollen also 320 Daten- 
Byte angekündigt werden, so sind die Ziffern 0, 3, 2, O0 
als ASCII-Werte 48, 51, 50, 48 zu senden. 


Dieser Drucker wartet aber noch mit einer ganz besonderen 
Überraschung auf. Im Grafik-Modus sind die Druckdrähte 
den einzelnen Bit des Daten-Byte anders zugeordnet, als es 
allgemein üblich ist. Der oberste Draht wird vom LSB (Bit 
0) angesprochen, der unterste von MSB (Bit 7). 


Diese Besonderheit wird im Programm HARDCOPY.CIT dadurch 
berücksichtigt, daß die Daten-Byte aus dem Bildschirmspei- 
cher in einer anderen Reihenfolge gelesen werden. In Zeile 
30030 werden die 40 Daten-Byte einer Bildschirmzeile rück- 
wärts verarbeitet, es werden also erst die 192 Daten der 
letzten Bildschirmspalte gelesen und in der indizierten Vari- 
ablen abgelegt. In Zeile 30090 können sie dafür dann in 
der normalen Reihenfolge, also nicht rückwärts, an den 
Drucker abgegeben werden. 


Im Programm HARDCOPX.CIT liegt der wesentliche Unterschied 
in Zeile 30210. Hier werden die aufgespaltenen Bit in umge- 
kehrter Reihenfolge mit Zweierpotenzen bewertet, so daß das 
MSB unten und das LSB oben angeordnet ist. 


Die Druckergebnisse beider Programme unterscheiden sich 
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@ REM HARDCOPY.CIT 

388288 LPRINT CHR$(C27);CHR$(C84);CHR$C49) ,CHR$SC5SP,CHR$ 
(27), CHR$(62) 

38818 DIM D(191):SN=PEEK(8SSI +PEEKCSI) +256 


39930 
32048 
32258 
39868 
39078 


FOR B=39 TO 8 STEP -1 
FOR Z=8 TO 191 
D{ZI=PEEK(CSNM+Z*408+5) 
NEXT 2 

OPEN #1,8,0,”P:” 


388898 PUT #1,27:PUT #1,83:PUT #1,48:PUT #1,49:PUT #1, 
57:PUT #1,58 

38898 FOR P=8 TO 191:PUT #1,DCP2:NEXT P 

38188 CLOSE #1 

38118 NEXT B 
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a REM 
ı DIM 
38888 
388208 
388308 
388408 
38858 
x 

380868 
308708 
308808 
38898 
38188 
38118 
381208 
38138 
381408 
38158 
38168 
302108 


TESTBILD EN ““ 





HARDCOPX.,CIT 

D(319),C(7,7) 

LPRINT CHR$(27);,CHR$C51);CHR$(C16) 
SM=PEEK(SSI+PEER(SIIK2SG 

FOR Z2=8 TO 23 

FOR P=8 TO 39 

FOR X=8 TO 7:FOR Y=8 TO 7:CCX,Y?=B:NEXT Y:NEXT 


FOR Z=8 TO 7 
A=PEEK(SM+P+2x48+22%320) 

IF A>127 THEN C(7,2)=1:A=A-128 
IF A>53 THEN C(6,2)3=1:A=A-64 
IF A>31 THEN C(5,2)3=1:A=A-32 
A>15 THEN C(4,23=1:A=A-165 
A>7? THEN C(3,293=1: 
A>3 THEN C(2,23=1: 
A>1 THEN C(1,2)=1: 
A>a THEN C(8,223=1 
NEXT 2 

FOR Y=8 TO 7:DCPx8+7-Y)=C(Y,7)%128+0(Y,65)*64+CC 


A=A-8 
A=A-4 
A=A-2 


Y,53832+C0CY,A)x16+CCY,3)xX8+0CY,2)3k4+C0(Y,1>*2+C(Y,OD):N 


EXT Y 
38250 
38310 


NEXT P 


OPEN #1,8,0,”P:”:PUT #1,27:PUT #1,83:PUT #1,48: 


PUT #1,51:PUT #1,508:PUT #1,48 


30320 
383498 
308358 


FOR J=8 TO 319:PUT #1,DCII:NEXT J 
CLOSE #1 
NEXT 22 
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nicht wesentlich von denen des radix-10. Die Grafikpunkte 
stehen etwas dichter zueinander. Das Druckbild ist etwa 10% 
kleiner und dichter. 


Durch das Umdrehen der Bit-Wertigkeit erzeugt das in X- 
Richtung druckende Hardcopy-Programm ein Bild, dessen 
Overscan in vertikaler Richtung liegt, das in Y-Richtung 
druckende Programm überdehnt in waagerechter Richtung. Im 
Endergebnis ist das unerheblich, da der Overscan auch hier 
ca. 20% beträgt. 


4.3.2 RX-80 von EPSON 


Auch der RX-80 ist in die mittlere Preisgruppe zu rechnen. 
Er kann nur mit Traktor-Papier betrieben werden, es gibt 
aber ein sonst identisches Modell, das auch Einzelbatt be- 
druckt. 


Der EPSON verfügt über fünf verschiedene Grafik-Betriebsar- 
ten. Die erste ist Dot-Grafik mit sog. normaler Dichte. In 
einer Druckzeile stehen 480 Punkte nebeneinander. Ein zwei- 
ter Modus erlaubt den Druck in doppelter Dichte. 960 Punkte 
füllen die Zeile und überdecken sich teilweise. Dadurch 
wird ein dichteres und schärferes Druckbild ermöglicht. So- 
gar vierfache Dichte (1920 Punkte pro Zeile) steht zur Ver- 
fügung. Aber Drucker, die Einzelnadel-Grafik beherrschen, 
bieten meist diese verschiedenen Dichten an. 


Als Besonderheit kann die sog. CRT-Grafik aufgerufen wer- 
den, die laut Anleitungsbuch besonders für Hardcopy geeig- 
net ist. Die folgenden Hardcopy-Programme für den RX-80 
laufen deshalb natürlich in diesem Grafik-Modus. 


Bei der CRT-Grafik stehen 640 Punkte auf einer Druckzeile, 
das sind 30% mehr als im normalen Grafik-Betrieb. Daraus 
läßt sich schon vorab errechnen, daß statt eines horizonta- 
len Overscan von 20%, ein vertikaler von 10% zu erwarten 
ist. D.h. auch bei diesem speziellen Hardcopy-Grafik-Modus 
bleibt ein Overscan von 10%, der sich optisch noch sehr 
deutlich bemerkbar macht. Allerdings liegt er senkrecht, so 
daß mit dem schnellen Y-Hardcopy-Programm gearbeitet wer- 
den kann. Der Overscan, den das Druckergebnis schließlich 
aufweist, entspricht übrigens dem, den TV-Schirme üblicher- 
weise zeigen. 


Die fünfte Grafik-Betriebsart ist CRT-Grafik Il, bei der 720 
Spalten auf einer Zeile liegen. Und der Vollständigkeit hal- 
ber sei noch erwähnt, daß es einen Grafikgang mit doppelter 
Dichte und doppelter Druckgeschwindigkeit gibt. 
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8 REM 
i DIM 
308086 
68) 

38828 
30038 
30849 
38058 
38868 
308078 
38088 


38898 
30188 
38118 
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HARDCOPY.EPS 
b<C191D 
LPRINT CHR$(C273,CHR$C659;,CHR$CSI ,;CHR$CZ7);,CHRS$C 


SN=FEEK(SSI+PEERK(C89)X*256 

FOR B=B TO 39 

FOR Z=8 TO 191 

D(ZI=PEEKCSM+Z*3B+B) 

NEXT 2 

OPEN #1,8,8,”P:” 

PUT #1,27:PUT #1,432:PUT #1,3:PUT #1,192:PUT #1, 


FOR P=191 TO 8 STEP -1:PUT #1,D(P):NEXT P 


CLOSE #1 
NEXT B 
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8 REM HARDCOPX.EPS 

1 DIM DC319),C(7,7) 

38888 LPRINT CHR$C27);,CHR$(C6S? ;CHR$CSI;CHR$SCZTI ;CHRS$C 
58) 

38828 SM=PEEK(CBSI+HPEEK(C8Y)XK256 

38838 FOR 22=8 TO 23:FOR P=& TO 39 

38858 FOR X=8 TO 7:FOR Y=8 TO 7:CCX,Y)?=8:NEXT Y:NEXT 
X 

38868 FOR Z2=8 TO 7 

38878 A=PEEK(SM+P+Z2x40+22x*320) 

30808808 IF A>127 THEN C(7,2)3=1:A=A-128 

30898 IF A>63 THEN C(6,2)=1:A=A-64 

38188 IF A>31 THEN C(5,23=1:A=A-32 

38118 IF A>15 THEN C(4,23=1:A=A-16 

38128 IF A>7 THEN C(3,2)=1:A=A 
38138 IF A>3 THEN C(2,2)=1:A=A 
38138 IF A>1 THEN C(1,29=1:A=A 
38158 IF A>a THEN C(8,2)=1 
38168 NEXT 2 

38218 FOR Y=8 TO 7:DCPx8+7-Y)=CCY,BOI)X128+CCY,1)x64+CC 
Y,2Z2I3%32+0(Y,3»DX16+0CY,43X8+C0(Y,5DxX4+C0CY,6)3%*%2+CCY,7>2:N 
EXT Y 

30258 NEXT P 

38388 OPEN #1,8,80,”P:” 

38318 PUT #1,27:PUT #1,42:PUT #1,4:PUT #1,64:PUT #1,1 
308328 FOR J=8 TO 319:PUT #1,DCJI:NEXT J 

30348 CLOSE #1 

30358 NEXT 22 


DD + 00 I 
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4.3.3 MT-80 von Mannesmann Tally 


Dieser Drucker gehört in die untere Preiskategorie, wird 
aber allen Anforderungen an einen Nadeldrucker gerecht. 
Der geringere Preis muß natürlich mit gewissen Nachteilen 
im Bedienungskomfort und Abstrichen bei den verfügbaren 
Kommandos erkauft werden. 


Auffällig ist, daß das Druckbild im ganzen etwas dichter 
ist, die Schriftzeichen fallen deutlich kleiner aus, als bei 
anderen Nadeldruckern. Dieses Druckbild und auch die Art 
der Bedienung ist ähnlich wie bei einigen Billigdruckern 
aus Fernost, die im Preis deutlich unter diesem Modell lie- 
gen. 


Die Kommandos des Mannesmann-Druckers MT-80 sind weitge- 
hend identisch mit denen des radix-10. Einzige Merkwürdig- 
keit, für den Zeilenabstand muß (warum auch immer) der 
Wert 22 eingesetzt werden. Das müßte eigentlich einem 
Zwischenraum von 22/72" entsprechen, aber wie auch immer, 
mit diesem Wert wird ein dem Augenschein nach gutes Er- 
gebnis erzielt. 


Interessant ist, daß ausgerechnet dieses Gerät, das unter 
den vorgestellten das schlichteste und billigste ist, im 
Grafik-Modus eine Hardcopy liefert, die fast keine Über- 
dehnung aufweist. Legt man einen in Y-Richtung gedruckten 
Screen-dump und einen in X-Richtung gedruckten übereinan- 
der, zeigt sich nur eine ganz minimale Abweichung. 


Da die Druckpunkte sehr dicht zusammenstehen, ergibt sich 
jedoch ein relativ kleines Bild, das etwas matschig wirkt. 
Hier müssen Sie als Käufer abwägen, was Sie von Ihrem 
Drucker erwarten. Suchen Sie hohen Bedienungskomfort und 
eine breite Palette von Drucksteuerungen mit vielen Schrift- 
typen, Ausdruck in Korrespondenz-Qualität (CQ oder NLQ = 
near letter quality) und besonders die Möglichkeit, eingene 
Schriftzeichen zu definieren und in den Drucker zu laden, 
müssen Sie ein anderes Gerät wählen, als wenn Sie lediglich 
ein Listing lesbar ausdrucken wollen. Wenn Sie großen Wert 
auf hohe Grafikqualität legen, sollte Ihre Wahl wiederum 
anders ausfallen. 


4.3.4 radix-15i von star 
Ein Drucker, der alle Anwendungen zur größten Zufriedenheit 
erledigt, ist der radix-15i. Dieses Gerät ist aber auch bei 


weitem das teuerste unter den vorgestellten. Deutlich preis- 
werter ist der radix-10i, der sich nur in der Breite des 
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B REM 
ı DIM 
38888 
(85) 

38828 
38038 
38848 
38858 
388608 
308708 
38888 
30898 
38188 
38110 
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ADARSNAHRL 


HARDCOPY.MAN 
D(191) 
LPRINT CHR$(27)3;CHR$CS1);CHR$C22);,CHR$C27),CHR$ 


SNM=PEEK(C88) +PEEK (89) 256 

FOR B=8 TO 39 

FOR 2=8 TO 191 

DCZI=PEEKCSNM+ZXAU+B) 

NEXT Z 

OPEN #1,8,8,”"P:” 

PUT #1,27:PUT #1,75:PUT #1,192:PUT #1,8 
FOR P=191 TO 8 STEP -1:PUT #1,DCP):NEXT P 
CLOSE #1 

NEXT B 





8 REM HARDCOPX.MAN 

1 DIM D(319),C(7,7) 

38888 LPRINT CHR$(C27);,CHR$CS1D;,CHR$C22) ;,CHR$CZ27I,CHR$ 
(8593: 5N1=PEEK(SS) +PEEK(CS93 256 

38838 FOR 22=8 TO 23 

38848 FOR P=8 TO 39 

38858 FOR X=8 TO 7:FOR Y=8 TO 7:CCX,Y?=8:NEXT Y:NEXT 
X 

38868 FOR Z=8 TOD 7 

389078 A=PEEK(CSM+P+Z2x49+2Z2x328) 

388858 IF A>127 THEN C(7,23=1:A=A-128 

38898 IF A>63 THEN C(65,2)=1:A=A-64 

38188 IF A>31 THEN C(5,2)=1:A=A-32 

38118 IF A>15 THEN C(4,2)=1:A=A-16 

38128 IF A>7 THEN C(3,2)3=1:A=A-8 
381380 IF A>3 THEN C(2,2)3=1:A=A-4 
38148 IF A>1 THEN C(1,2)3=1:A=A-2 
38158 IF A>8 THEN C(8,2)9=1 

38168 NEXT 2 

38288 FOR Y=8 TO 7 

38218 DCPx8+7-Y)=C(Y,BO)*128+CCY,1)X64+C0(Y,23%32+0(Y,3 
IK1SE+CCY,AI)x8+C(Y,5dr4+C0(Y,63%*2+C(Y,7) 

38228 NEXT Y 

38238 NEXT P 

38388 OPEN #1,8,0,”P:” 

308318 PUT #1,27:PUT #1,75:PUT #1,64:PUT #1,1 

38328 FOR J=8 TO 319:PUT #1,DCII:NEXT J 

38338 CLOSE #1 

38348 NEXT 22 
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8 REN 
1 DIM 
388088 
388208 
308308 
398409 
30858 
38860 
30070 
38088 


30898 


30108 
38118 
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HARDCOPY.STI 

D(191) 

LPRINT CHR$(C27) ;CHR$CS51);CHR$C24),CHR$(C27) 
SM=PEEK(8SI +PEEKCS9YI *256 

FOR B=8 TO 39 

FOR 2=8 TO 191 

D(ZI)=PEEK(CSM+Z*40+B) 

NEXT 2 

OPEN #1,8,0,”P:” 

PUT #1,27:PUT #1,42:PUT #1,5:PUT #1,192:PUT #1 


FOR P=191 TO 8 STEP -1:PUT #1,D(CP):NEXT P 
CLOSE #1 
NEXT B 







oO REM 
ı DIM 
380088 
30828 
30038 
3808408 
30952 
X 

30868 
380878 
38888 
30898 
38188 
38118 
30128 
38138 
38148 
38158 
30168 
301708 


TESTBILD 


Pr 
Po 

- 

' 


cc) 1984 % 


a 
| 
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HARDCOPX,STI 

DC319),C(7,7) 

LPRINT CHR$(C27),CHR$CS51),CHR$C24) 

SMI=PEEK(BSSI +PEEKCSIIK2S6 

FOR Z22=8 TO 23 

FOR P=8 TO 39 

FOR X=8 TO 7:FOR %Y=B TO 7:CCX,YD=8:NEXT Y:NEXT 


FOR 2Z=8 TO 7 
A=PEEK(CSN+P+2*40+22%*320) 

IF A>127 THEN C(7,2)=1:A=A-128 
IF A>63 THEN C(6,23=1:A=A-64 
IF A>31 THEN C(5,293=1:A=A-32 
IF A>15 THEN C(4,23=1:A=A-16 
IF A>7 THEN C(3,29=1:A= 
IF A>3 THEN C(2,2)=1:A= 
IF A>1 THEN C(1,2)=1:A= 
IF A>8 THEN C(8,23=1 
NEXT 2 

FOR Y=0 TO 7:DCPx8+7-YI=C(CY,O)x128+CCY,1)*64+CC 


A-8 
A-4 
A-2 


Y,2I832+6(Y,3)8x16+C0(Y,4)X8+0(Y,DIFA+ Cl Y,EIX2+C0CY,7>:N 


EXT Y 
30188 
38280 
30218 
302208 
30230 
382408 


NEXT P 

OPEN #1,8,0,”P:” 

PUT #1,27:PUT #1,42:PUT #1,5:PUT #1,64:PUT #1,1 
FOR J=8 TO 319:PUT #1,DCIDI:NEXT J 

CLOSE #1 

NEXT 22 
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ausdruckbaren Formates (hier 10", dort 15") unterscheidet. 
Beide Geräte sind IBM kompatibel und verfügen über einen 
zweiten Zeichensatz, der den wichtigsten Teil des umfangrei- 
chen IBM-Zeichensaäatzes enthält. 


Der Bedienungskomfort läßt keine Wünsche übrig. Für Einzel- 
blatt gibt es einen automatischen Papiereinzug. Natürlich 
kann auch Endlospapier mit Traktorführung bedruckt wer- 
den. Besonderen Komfort aber bietet der 16-kByte-Druckpuf- 
fer. 


Die Datenübertragung vom Computer zum Drucker ist natur- 
gemäß viel schneller als der Druckvorgang selbst. Dieser 
Drucker nimmt bis zu 16.000 Zeichen in einen Puffer ge- 
nannten Zwischenspeicher auf und gibt den Computer schon 


frei, während der Druckvorgang noch lange fortgeht. 
16 kByte fassen immerhin gut die Hälfte des Anwender-RAM 
vom ATARI! Wenn Sie den Drucker also beispielsweise ein 


Listing drucken lassen, gehen nach dem Befehl LIST'P:" die 
Daten in kurzer Zeit an den Drucker ab und werden dort im 
Puffer zwischengespeichert. Nach NEW können Sie schon ein 
neues Programm schreiben oder laden, während der Drucker 
noch einige Zeit am Ausdruck des Listings arbeitet. 


Im Rahmen dieses Druckervergleichs ist aber besonders 
interessant, daß der radix-10i (oder radix-15i) über einen 
weiteren Grafik-Modus verfügt, der als Plotter-Grafik be- 
zeichnet wird. Diese Betriebsart füllt eine 10"-Zeile mit 576 
Punkten und schafft damit ein absolut verzerrungsfreis Bild. 
Die in X-Richtung und in Y-Richtung gedruckten Hardcopies 
sind völlig deckungsgleich. 


Die Steuerbefehle dieses star-Druckers weichen an vielen 
Stellen von denen des bereits vorgestellten radix-10 des glei- 
chen Herstellers ab, sind aber, wo gleiche Funktionen vor- 
liegen, identisch mit den EPSON-Kommandos. Wenn zwei Her- 
steller von solcher Marktbedeutung zu einheitlichen Steuer- 
befehlen gefunden haben, dann kann man hoffen, daß sich 
hier nach und nach ein durchgehender Standard etabliert. 
Wer schon mit fertiger Software gearbeitet hat, die auch den 
Drucker anspricht, z.B. eine Textverarbeitung oder ein 
Buchführungsprogramm, der weiß, wie lästig es ist, das 
teuer gekaufte Programm mühsam an den Drucker anzupas- 
sen. Wären die Steuerkommandos für alle Drucker einheitlich 
vereinbart, wäre diese Anpassung überflüssig. 


128 


5 Diskette 


Das DOS (Disk Operating System) ist ein Disketten-Betriebs- 
Programm, das den Datenfluß zwischen Computer und Disket- 
tenstation überwacht und steuert. Mit DOS wird der Betrieb 
der Diskettenstation erst möglich. 


DOS ist nicht zu verwechseln mit dem DOS-Menü, über das 
verschiedene Hilfsprogramme aufgerufen werden können (z.B. 
Kopieren von Programmen, Einrichten eines MEM.SAV-Files, mit 
dem BASIC-Programme zwischengespeichert werden können). Das 
eigentliche Disk Operating System wird hingegen automatisch 
geladen, sobald in die betriebsbereite Diskettenstation eine 
Diskette eingelegt und der Computer eingeschaltet wird. 


Von ATARI werden drei verschiedene DOS-Versionen angeboten. 
Davon ist DOS 1 das älteste und inzwischen am wenigsten 
benutzte Disketten-Betriebs-System. DOS 2 bietet demgegenüber 
größeren Betriebs-Komfort und ist das derzeit am weitesten 
verbreitete System. Aus diesem Grund sind die Programm-Bei- 
spiele im Buch auch auf DOS 2 abgestimmt. 


Allerdings können auch die Benutzer des neueren DOS 3 die 
hier beschriebenen Disketten-Operationen anwenden, da sich 
die beiden DOS-Versionen nur dadurch unterscheiden, daß 
DOS 3 eine größere Speicherkapazität der Diskette ermöglicht 
und ein deutschsprachiges DOS-Menü anbietet. 


In den nachfolgenden Abschnitten wird nicht auf die einfachen 
Disketten-Operationen wie SAVE "D:NAME'" oder das Erstellen 
eines Überschreib-Schutzes eingegangen. Solche Funktionen 
sind in der Betriebsanleitung ausreichend beschrieben und 
dürften jedem Diskettenstation-Besitzer geläufig sein. Statt- 
dessen wird der effektive Umgang mit den sog. "wild cards" 
vermittelt sowie Disketten-Operationen ohne Aufruf des DOS- 
Menüs. Später finden Sie dann fortgeschrittene Anwendungen 
wie Datenverwaltung, Errichten von Textfiles und die AUTO- 
RUN-Funktion, mit der bestimmte Programme automatisch ge- 
startet werden können. Besonders nützlich sind die Program- 
mierhilfen zur Erzeugung von DATA-Zeilen und vollständigen 
BASIC-Programmen mit Hilfe der Diskettenstation. Mit diesen 
Hilfen können Sie sich z.B. ein bescheidenes, aber bequemes 
Textverarbeitungs-System programmieren oder Daten zum Betrieb 
anderer Programme abspeichern. 
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5.1 Arbeiten im DOS-Menü 


Neben den ganz normalen Operationen mit den DOS-Hilfspro- 
grammen (Formatieren einer Diskette, Kopieren des DOS-Files 
oder Erstellen eines Überschreib-Schutzes gespeicherter Pro- 
gramme) gibt es einige komfortable Funktionen, mit denen 
sich Disketten-Operationen erleichtern lassen. 


Zu diesen Erleichterungen zählen die sog. "wild cards"; das 
sind die Zeichen ? und *. Das Fragezeichen ersetzt ein ein- 
zelnes Zeichen; das Sternchen einen ganzen Filenamen oder 
Extender (Namens-Erweiterung). 


Wenn Sie sich im DOS-Menü befinden und das Inhalts-Verzeich- 
nis der Diskette (Directory) auslisten lassen wollen, müssen 
Sie normalerweise eingeben: 


A (RETURN) (RETURN? 


Nun wird die Directory auf dem Bildschirm ausgegeben. Falls 
sich jedoch mehr als 24 Programme auf der Diskette befin- 
den (insgesamt kann die Directory 64 Namen erfassen), erle- 
ben Sie das sog. Scrolling; d.h. das Inhalts-Verzeichnis 
rollt relativ schnell über den Bildschirm, so daß Sie die 
oberen Namen nicht mehr lesen können. Mit einem der "wild 
cards'' können Sie erreichen, daß nur der Teil der Directory 
ausgelistet wird, der Sie interessiert (z.B. alle Programme 
mit dem Extender LST). In diesem Fall müssen Sie eingeben: 


A (RETURN) 
*.LST (RETURN) 


Nun könnte es sein, daß Sie noch weiter spezifizieren wollen 
(z.B. wenn Sie eine Programmserie mit PROGR1.LST, PROGR2. 
LST, PROGR3.LST usw. begonnen haben und wissen wollen, 
welche Nummer als nächstes folgen müßte). In diesem Fall 
sind alle anderen Programme mit dem Extender LST uninter- 
ressant. Sie können sich den betreffenden Teil der Directory 
auslisten lassen, indem Sie eingeben: 


A (RETURN) 
PROGR?.LST (RETURN) 
Auch die Kombination beider "wild cards" ist möglich; z.B.: 
A (RETURN) 
PROGR?.X* CRETURND 


In diesem Fall werden alle Filenamen aufgelistet, die mit 
PROGR beginnen, unabhängig davon, welchen Extender sie 
besitzen. Falls Sie die Directory nicht auf dem Bildschirm, 
sondern gedruckt sehen wollen, geben Sie ein: 
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A CRETURND 
D:,P: CRETURND 


Das P steht als Abkürzung für Printer (Drucker). Mit diesem 
Parameter wird automatisch ein Datenkanal zum Drucker er- 
öffnet. Demzufolge müßte bei Ausgabe auf dem Bildschirm 
ebenfalls ein Datenkanal eröffnet werden; z.B. durch die 
Angabe S (Screen = Bildschirm) oder E (Bildschirm-Editor). 
Da diese Ausgabeform jedoch die häufigste ist, nimmt ATARI 
diese Arbeit ab und eröffnet automatisch einen Datenkanal 
zum Bildschirm, wenn keine andere Eingabe vorgenommen 
wird. 


Sie können die oben stehende Anweisung an den Drucker auch 
abkürzen: 


A CRETURN)D 
‚P: (RETURN) 


Häufig kommt es vor, daß man beim Anblick der Directory 
gar nicht mehr weiß, worum es sich bei einzelnen Programmen 
handelt. Normalerweise müssen Sie das DOS verlassen, das 
Programm laden und LI!STen. Diesen Umstand können Sie sich 
vereinfachen, indem Sie die Copy-Funktion des DOS nutzen. 


Anstatt ein Programm auf eine andere (oder die gleiche) Dis- 
kette zu kopieren, müssen Sie es lediglich auf den Bildschirm 
kopieren: 


C (RETURN) 
D:NAME.EXT,E: CRETURN) 


Durch ‚E: wird der Datenkanal zum Bildschirm-Editor eröffnet 
und das betreffende Listing erscheint, obwohl Sie sich im 
DOS befinden. Natürlich können Sie auch hier "wild cards" 
verwenden; z.B.: 


C CRETURN? 
D:*.LST,E: (RETURN? 


Nun erscheint das Listing des ersten Programms mit dem 
Extender LST auf dem Bildschirm. Die Voraussetzung für diese 
Pseudo-Copy ist allerdings, daß die betreffenden Programme 
auf der Diskette geLISTet sind (nicht geSAVEd). Bei geSAVEten 
Programmen erfolgt zwar auch eine Copy auf dem Bildschirm, 
jedoch ist diese im sog. Token-Format gehalten. Das sind 
die internen Kürzel für alle BASIC-Anweisungen. Für den 
unkundigen User stellen sie nur ein Wirrwar von Zeichen und 
Zahlen dar. 


GeLISTete Programme hingegen werden in normalen ASC I I-Werten 
abgespeichert, die bei der Copy im CHR$-Format (und damit 
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in lesbaren Zeichen) ausgegeben werden. Sie können sich zum 
besseren Verständnis einmal ein geSAVEtes und ein geLISTe- 
tes Programm auf den Bildschirm kopieren. 


Die Copy-Funktion kann auch genutzt werden, um sämtliche 
Listings einer Diskette auf dem Drucker auszugeben. Dies ist 
eine äußerst angenehme Arbeitserleichterung. Denn normaler- 
weise müßten Sie jedes einzelne Programm in den Speicher 
laden und mit der Anweisung LIST '"P: an den Drucker ab- 
geben. Bei Anwendung der Copy-Funktion im DOS brauchen 
Sie nur anstelle des Parameters E ein P (für Printer) ein- 
zugeben; also: 


C CRETURN? 
D:NAME.EXT,P: {RETURND 


Oder, falls Sie sämtliche Programme nacheinander mit Drucker 
geLISTet haben wollen, mit "wild cards": 


C {RETURND 
D:x.x*,P: RETURN) 


Genau wie bei der Copy auf dem Bildschirm müssen hier alle 
Programme auf Diskette geLISTet sein (also nicht geSAVEd). 


Mit der Funktion D (Delete = Löschen) können Sie, während 
Sie sich im DOS-Menü befinden, ein Datenfile bzw. ein Pro- 
gramm löschen. Dazu geben Sie normalerweise ein: 


D (RETURN? 
D:NAME.EXT CRETURND 
Y CRETURND 


Das Y (für YES) wird vom Computer erfragt. Es soll eine 
zusätzliche Sicherung sein, falls Sie nur aus Versehen die 
Delete-Funktion aufgerufen haben und möglicherweise ein 
wertvolles Programm verloren geht. Das ist auch sehr höflich 
vom Computer. Aber in der Regel sind Sie ganz sicher, daß 
Sie ein bestimmtes Programm löschen wollen. Und in diesem 
Fall ist das Y lästig. Mit einem kleinen Zusatz (den die 
deutsche Bedienungs-Anleitung leider verschweigt) können Sie 
das Y unterdrücken. Dies ist die Anweisung /N hinter dem 
Programmnamen; z.B.: 


D (RETURN) 
D:NAME.EXT/N (RETURN) 


Der Einsatz von /N wird besonders attraktiv, wenn Sie meh- 
rere Programme hintereinander löschen wollen; z.B. die Serie 
PROGR1.LST, PROGR2.LST, PROGR3.LST usw. In diesem Fall 
können Sie wieder mit den "wild cards!" arbeiten und folgen- 
des eingeben: 
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D ’(RETURN? 
D: PROGR?.LST/N CRETURND 


Falls sich auf der Diskette keine Programme mit dem Namen 
PROGRn und dem Extender LST befinden, können Sie bei oben 
gezeigten Delete-Anweisung auch folgendes eingeben: 


D (RETURN? 
D:PROGR?.x/N (RETURN? 


Nun werden sämtliche Programme, die mit PROGR beginnen 
gelöscht, gleichgültig, welchen Extender sie besitzen. 


"wild cards" können auch eingesetzt werden, um sämtliche 
Programme gegen Überschreiben zu schützen. Das kann nütz- 
lich sein, wenn nur noch wenige Sektoren auf der Diskette 
frei sind und ein längeres Datenfile gespeichert werden soll. 
Hierbei können unter Umständen Sektoren anderer Programme 
zerstört werden. Bei gesicherten Programmen wird dies in 
jedem Fall vermieden. 


Die normale Anweisung zur Errichtung eines Überschreib- 
Schutzes lautet: 


F RETURN? 
NAME .EXT (RETURN? 


Mit "wild cards!" können Sie sämtliche Programme gleichzeitig 
gegen Überschreiben schützen (oder eine bestimmte Auswahl, 
wenn Sie dies wünschen); z.B.: 


F CRETURN) 
xx CRETURN) 
oder: 

F CRETURN) 
PROGR?.%* CRETURND 


Im zweiten Fall werden alle Programme, die mit dem Namen 
PROGR beginnen, gegen Überschreiben geschützt. 


Falls Sie sämtliche Programme einer Diskette auf diese Weise 
schützen, so werden auch DOS.SYS, DUP.SYS (DOS-Hilfspro- 
gramm) und MEM.SAV geschützt. Auf DOS.SYS und DUP.SYS 
hat dies keine nachteiligen Auswirkungen. MEM.SAV verliert 
jedoch seine Funktionsfähigkeit, da in diesem File ein im 
Speicher befindliches Programm zwischengelagert wird, sobald 
Sie DOS aufrufen. Sie müssen also MEM.SAV vom Überschreib- 
Schutz befreien: 


G (RETURND 
MEM.SAV CRETURN) 
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Selbstverständlich können auch hier "wild cards'" eingesetzt 
werden, um mehrere oder alle Programme einer Diskette vom 
Überschreibschutz zu befreien; z.B.: 


G (RETURN)? 
x.% CRETURN? 


DISK OPERATING SYSTEM II VERSION 2.05 
COPYRIGHT 1988 ATARI 


A. DISK DIRECTORY I. FORMAT DISK 
B. RUN CARTRIDGE J. DUBLICATE DISK 
C. COPY FILE K. BINARY SAVE 
D. DELETE FILE(S) L. BINARY LOAD 


E. RENANME FILE M. RUN AT ADDRESS 
F. LOCK FILE N. CREATE MEM.SAV 
G. UNLOCK FILE OÖ. DUPLICATE FILE 
H. WRITE DOS FILE 


SELECT OR RETURN FOR MENU 





Die Abbildung zeigt das gesamte DOS-Menü, so wie es sich 
auf dem Bildschirm darstellt. Mit I können Sie eine Diskette 
neu formatieren, mit H ein DOS-Menü auf die formatierte Dis- 
kette schreiben. | 


Durch die Eingabe von N wird das bereits erwähnte MEM.SAV 
erzeugt. K,L und M stehen für Binärdaten und Programme 
in Maschinensprache zur Verfügung. Darauf geht dieses Buch 
nicht ein. (Es handelt sich ja schließlich um eine BASIC- 
Trick-Kiste.) 


Wie man Disketten-Operationen auch ohne DOS-Menü durchführen 
kann, erfahren Sie im folgenden Abschnitt. 
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5.2 DOS-Operationen mit XIO 


Das Arbeiten im DOS-Menü ist zwar komfortabel; aber es hat 
einen Nachteil: Beim Aufruf von DOS wird das im Speicher 
befindliche Programm gelöscht. Wenn sich ein MEM.SAV-File 
auf der Diskette befindet, speichert der Rechner ein aktuelles 
Programm im MEM.SAV ab; doch der Ladevorgang des DOS-Menüs 
dauert dreimal länger als normal. Außerdem verbraucht ein 
MEM.SAV-File 45 Sektoren der Diskette. 


Interessant sind also Möglichkeiten, DOS-Operationen ohne 
DOS-Menü durchzuführen. Das erspart Zeit und verbraucht 
keinen Speicherplatz auf der Diskette. Mit dem XIO-Befehl 
können einige (leider nicht alle) DOS-Aufgaben gelöst wer- 
den. Die Angaben in einem XIO-Befehl sind: 


X1lO Befehls-Code,Kanal-Nr.,Funktion 1,Funktion 2,Gerät 


Es gibt eine ganze Reihe von Befehls-Code-Zahlen, mit denen 
außer DOS-Operationen noch andere BASIC-Befehle ausgeführt 
werden können (z.B. 3 für OPEN, 5 für INPUT u.a.). In den 
anderen Kapiteln dieses Buches wird im Zusammenhang mit 
dem behandelten Thema auf einige dieser Funktionen einge- 
gangen. Hier interessieren nur die Code-Zahlen für DOS-Ope- 
rationen, die nachfolgend erklärt werden. 


Da mit XIO immer Dateneingabe oder -ausgabe gesteuert wer- 
den, muß hierfür ein entsprechender Daten-Kanal zur Verfügung 
stehen (bei DOS-Operationen in der Regel #1). Die Angabe 
für die Funktion 1 hängt von der Aufgabe ab, die gelöst 
werden soll; z.B. dient bei XIO-Anwendung als OPEN-Befehl 
eine 4 zum "Lesen vom angesprochenen Gerät" und eine 8 zum 
"Schreiben auf das angesprochene Gerät". Bei DOS-Operationen 
kann die Angabe für die Funktion 1 immer eine O sein. 


Die Funktion 2 wird nur bei XIO-Anwendung als OPEN-Befehl 
(zur Festlegung der Grafik-Betriebsart, der Programm-Recor- 
der- und Drucker-Steuerung) und bei der Programmierung 
der RS 232 Schnittstelle benötigt. Bei allen anderen Operationen 
ist der Wert von Funktion 2 eine 0. 


DieAngabe für das Gerät muß bei Disketten-Operationen immer 
"D: oder "D:NAME.EXT sein. Soll mit XIO eine Diskette neu 
formatiert werden, lautet der Befehl: 


x10 254,#1,8,8,”D: 


Diesen Formatierungs-Befehl können Sie auch wunderbar zum 
Schutz Ihrer Programme anwenden (z.B. wenn jemand gegen 
Ihren Wunsch versucht, ein Programm zu LISTen, lassen Sie 
die Diskette einfach neu formatieren. Das ist zwar 'böse", 
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aber sehr wirksam. Näheres erfahren Sie in dem Kapitel über 
Programm-Schutz). 


Wenn Sie einen Filenamen umbenennen wollen, können Sie dies 
ebenfalls ohne DOS-Menü mit XI0O durchführen: 


x10O 32,#1,8,8,”"D:ALTNAME.EXT,NEUNAME.EXT 


Übrigens kann XIO mit X. abgekürzt werden. Wenn Sie ein 
File von der Diskette löschen wollen, geben Sie ein: 


x10 33,#1,8,9,”"D:NAME.EXT 


Hierbei tritt ein Fehler auf, wenn das zu löschende Programm 
vor Überschreiben geschützt ist. Diesen Schutz können Sie 
ebenfalls mit XIO aufheben: 


IO 36,#1,8,8,D:NANME.EXT 


Wenn Sie hingegen einen Überschreib-Schutz erstellen wollen, 
müssen Sie eingeben: 


xIO 35,#1,8,8,D:NAME.EXT 


Genau wie bei den Beispielen für DOS-Operationen im vorher- 
gehenden Abschnitt können Sie beim XIO-Befehl "wild cards" 
einsetzen. Wenn Sie z.B. sämtliche Programme einer Diskette 
hintereinander löschen wollen, geben Sie ein: 


xIO 33,#1,8,08,D:x%.x/N 


Bedenken Sie aber, daß hierbei auch DOS.SYS und DUP.SYS 
gelöscht werden. Besser ist es daher, nacheinander einzelne 
Programm-Gruppen zu löschen; z.B. mit Angaben wie: 


X1IO 33,#1,8,8,”"D:PROGR?.*/N 
Dadurch bleiben DOS.SYS und DUP.SYS erhalten. 


Damit sind die Möglichkeiten des XI0O-Befehls zur Bewältigung 
von Disketten-Operationen erschöpft. Der große Vorteil dieser 
Anwendung besteht darin, daß Sie Ihr augenblickliches BASIC- 
Programm nicht verlassen müssen. Außerdem können Sie die 
XI0O-Befehle innerhalb von Programmen einsetzen, was z.B. 
bei Textverarbeitung oder Datenverwaltung sehr nützlich ist. 


So ist es möglich, durch Tastatur-Eingabe einzelne Datenfiles 
mittels XlIO zu löschen, vor Überschreiben zu schützen oder 
umzubenennen. Dazu müssen Sie freilich erst einmal wissen, 
wie man solche Files erstellt. Das erfahren Sie im folgenden 
Abschnitt. 
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5.3 Disketten-Operationen mit PRINT # und INPUT # 


Bislang haben Sie nur Disketten-Hilfsprogramme kennengelernt. 
Darüber hinaus lassen sich aber auch umfangreiche Aufgaben 
durch den Datenaustausch zwischen Rechner und Disketten- 
Station lösen; z.B. Adressen- und Datenverwaltung oder Text- 
verarbeitung. Außerdem lassen sich auch BASIC-Programmzeilen 
(z.B. DATA-Zeilen) mit fortgeschrittenen Disketten-Operationen 
generieren. 


Voraussetzung ist, daß bestimmte INPUT/OUTPUT-Kanäle geöffnet 
werden. Der Befehl dazu lautet: 


OPEN#Kanal,Betriebsart,Funktion,Gerät 


Normalerweise werden die Kanäle I bis 5 benutzt. Die Kanäle 
6 und 7 stehen für andere Zwecke zur Verfügung (Kanal 6 
zum Ausführen von Grafikbefehlen in den Betriebsarten 1 und 
2; Kanal 7 zur Ausführung von CLOAD-, CSAVE- und LPRINT- 
Anweisungen). 


Es dürfen mehrere Kanäle gleichzeitig mit verschiedenen Be- 
triebsarten und Funktionen geöffnet sein. Allerdings kommt 
es zur Fehlermeldung, wenn Sie versuchen, zweimal hinter- 
einander den gleichen Kanal zu öffnen. In der Praxis erweist 
es sich daher als sinnvoll, zum Programmbeginn die Daten- 
kanäle zu schließen, die man benutzen will. Der Befehl dazu 
lautet: 


CLOSE #Kanal 


Die nachfolgenden Tabellen schlüsseln die verschiedenen An- 
gaben im OPEN-Befehl auf. 


Ansprechbare Geräte beim OPEN-Befehl* 
Angabe im OPEN-Befehl 


oder "C:NAME Programm-Recorder 
oder "D:NAME.EXT Disketten-Station 
Bildschirn-Editor 








Tastatur (Keyboard) 
Drucker (Printer) 

RS 232 Schnittstelle 
Bildschirm (Screen) 










* Über den OPEN-Befehl lassen sich auch die RS 232 Schnittstelle und einige 
Bildschirn-Funktionen programmieren (z.B. Wahl der Grafik-Betriebsart). Bei 
Disketten-Operationen sind diese Möglichkeiten jedoch nicht interessant. 
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Erster Parameter des OPEN-Befehls 


4 Lesen (vom Gerät) C: 
Schreiben (zum Gerät) C: 


8 

4 Lesen (von Diskette) 

8 Schreiben (auf Diskette; z.B. Datenfile) 

9 Anhängen (an bestehendes Datenfile) 

12 Lesen und Schreiben (z.B. teilweises Verändern 
eines bestehenden Datenfiles) 













8 Ausgabe (auf dem Bildschirm) 
12 Eingabe von Tastatur, Ausgabe auf dem Bildschirm 
13 Lesen vom Bildschirm, Ausgabe auf Bildschirn 





TastaturAbfrage 
BE Ausgabe (an Drucker) 





Normale Pausen zwischen aufgezeichneten Blöcken 
Kurze Pausen zwischen aufgezeichneten Blöcken 


Normale Ausgabe der Zeichen 
Liegende Zeichen (ATARI-Drucker 820) 





5.3.1 Datenverwaltung 


Die einfachste Form, ein Datenfile auf Diskette zu schreiben, 
zeigt das folgende Beispiel: 


18 OPEN #1,8,8,”D:TEXTFILE” 
28 PRINT #1; "Dies ist ein Text” 
38 CLOSE #1 


Nun befindet sich "Dies ist ein Text" in Form von ASCII-Werten 
unter dem Dateinamen TEXTFILE auf der Diskette. Wenn Sie 
ihn in den Rechner einlesen wollen, müssen Sie folgendes 
Programm schreiben: 
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18 DIM A$C2DB) 

28 OPEN #1,4,8,”D:TEXTFILE” 
38 INPUT #1;,A$ 

38 PRINT A$S:CLOSE #1 


Der OPEN-Befehl in den beiden Programmen unterscheidet sich 
nur in der Angabe des ersten Parameters. Im ersten Listing 
wird mit der Betriebsart 8 das Schreiben auf Diskette ermög- 
licht; im zweiten mit der Betriebsart 4 das Lesen von der 
Diskette vorbereitet. 


Das Schreiben selbst wird mit PRINT # durchgeführt; das Le- 
sen mit INPUT # (der Datenaustausch mittels PUT# und GET # 
wird in den Abschnitten unter 5.4 behandelt). 


Mit dem Beispiel auf der vorhergehenden Seite läßt sich das 
Prinzip einer Adressen-Verwaltung veranschaulichen. Versuchen 
Sie folgendes Programm: 


18 PRINT CHR$(125) 

zB DIN A$CS5B8),B$CSB),C$C5H8),D$(C50) 

38 UÜPEN #1,8,8,"D: ADRESSEN” 

48 PRINT "Name, Vorname: ”: INPUT A$ 

S@ PRINT "Strasse, Postfach:”"”: INPUT B$ 
68 PRINT "Postleitzahl, Ort:”"”:INPUT C$ 
r& PRINT "Zusatz?”: INPUT D$ 

88 PRINT #1;A$;B$;,C$;:D$ 

a8 CLOSE #1 


Nach RUN können Sie Ihre Eingaben. machen. Falls Sie keine 
Eingabe wünschen (z.B. bei "Zusatz"), drücken Sie einfach 
RETURN. Jeder eingegebene String darf maximal 50 Zeichen 
lang sein. Zum Abschluß werden die Texte unter dem Datei- 
namen ADRESSEN auf Diskette geschrieben (am besten benutzen 
Sie eine Experimentier-Diskette, da die hier gezeigten Pro- 
gramme noch keine professionellen Aufgaben bewältigen, son- 
dern nur zum besseren Verständnis der Funktionsweise der 
PRINT# und INPUT#-Befehle dienen). 


Nachdem Sie nun Ihre Adresse abgespeichert haben, können 
wir es Ihnen verraten: Das Programm ist der reinste Blöd- 
sinn. Die Adresse befindet sich zwar auf Diskette; aber nicht 
hübsch säuberlich nach A$,B$,C$ und D$ getrennt, sondern 
als ununterbrochene Zeichenkette. Der Grund dafür: Nur der 
Rechner unterscheidet die einzelnen String-Variablen; auf der 
Diskette werden ausschließlich die ASCII-Werte der einzelnen 
Buchstaben abgelegt. 


Sie können sich das selbst beweisen, indem Sie die Adresse 
mit folgendem Programm wieder in den Rechner einlesen: 
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18 PRINT CHR$(C1’25) 

28 DIM A$(C188) 

38 OPEN #1,4,8,”D: ADRESSEN” 
38 INPUT #1;A$ 

8 PRINT A$ 

68 CLOSE #1 


Auf dem Bildschirm sehen Sie nun die Zeichenketten, die Sie 
zuvor einzeln eingegeben hatten, ohne Zwischenräume und 
Zeilenvorschub; z.B.: 


Johannes MeierBahnhofstr. 62888 Hambur 
g-Norder steadt 


READY 


Und wie macht man's nun richtig? Der Trick ist ganz ein- 
fach: Sie müssen nach jeder Einzeleingabe ein "End of Line" 
(EOL) setzen. Beim normalen Arbeiten mit dem Computer wird 
ein EOL automatisch beim Drücken von RETURN gesetzt. Dieses 
Kommando (ASCII-Code = 155) ist jedoch nicht Bestandteil des 
eingegebenen Strings (in diesem Beispiel A$, B$ usw.), so 
nur die ASCII-Werte der Textzeichen auf Diskette geschrieben 
werden. 


Sie müssen also eine spezielle EOL-Anweisung geben, damit 
die Adressen in gewohnter Weise auf dem Bildschirm erschei- 
nen. Verbessern Sie das kurze Adressen-Programm folgender- 
maßen: 


18 PRINT CHR$(125) 

28 DIM A$(58),B$(50),C$C58),D$C5B8),E$C1) 
25 E$=CHR$(155) 

38 OPEN #1,8,08,”D: ADRESSEN” 

30 PRINT "Name, Vorname: ": INPUT A$ 

S8 PRINT "Strasse, Postfach:”:INPUT B$ 
868 PRINT "Postleitzahl, Ort:”:INPUT C$ 
78 PRINT "Zusatz?"”: INPUT D$ 

88 PRINT #1; A$;E$;B$;E$;C$;E$;DE 

92 CLOSE #1 


Es ist nicht notwendig, die alte ADRESSEN-Datei zu löschen. 
Nach RUN wird sie von den neuen Eingaben automatisch über- 
schrieben. Zum Lesen der Adresse müssen Sie das oberste 
Listing auf dieser Seite ebenfalls ändern: 


18 PRINT CHR$(125) 

28 DIN A$(C50),B$C59),C$(58),D$C58),E$C1) 
25 E$=CHR$(1S55) 

38 OPEN #1,4,8,”D: ADRESSEN” 
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30 INPUT #1; A$,B$,C$,D$ 
S8 PRINT A$;ES$;B$;E$:;C$H:;E$;,DE$ 
68 CLOSE #1 


Mit diesen Beispielen können Sie natürlich nicht nur Adressen 
speichern, sondern auch andere Textblöcke oder irgendwelche 
Daten. Wenn Sie diese Daten an den Drucker abgeben wollen, 
ändern Sie die PRINT-Anweisung einfach in LPRINT. Weitere 
nützliche Anwendungs-Beispiele mit diesen fortgeschrittenen 
Disketten-Operationen finden Sie im Kapitel über String-Mani- 
pulationen. 


5.3.2 DATA-Zeilen generieren 


Wenn Sie in normalen Programmen DATA-Zeilen verwenden, dann 
liegen die einzelnen DATA-Werte durch Ihre Eingabe fest. Das 
ist nützlich, wenn Sie z.B. Musiknoten, Player-Missile-Daten 
oder Grafikzeichen definieren und während des Programmab- 
laufs aufrufen. 


Nun kommt es jedoch auch vor, daß sich die DATA-Werte für 
bestimmte Dinge erst während eines Programms ergeben, so 
wie bei dem Zeichensatz-Generator im Kapitel 3.2.2 dieses 
Buches. Ebenso ergeben sich die Dezimalwerte für eine Player- 
Missile-Grafik, wenn Sie sie mit einem Hilfsprogramm auf dem 
Bildschirm konstruieren, erst durch Ihre aktuellen Eingaben. 
Wenn Sie solche Werte in DATA-Zeilen ablegen wollen, so 
gelingt dies natürlich nicht innerhalb eines normalen BASIC- 
Programms. Mit Hilfe einer speziellen Disketten-Operation 
können Sie jedoch DATA-Werte mitsamt BASIC-Zeilennummern 
abspeichern und hinterher mit ENTER '"D:NAME in den Rechner 
einlesen. 


Sie müssen dabei die automatisch generierten Zeilennummern 
so wählen, daß beim ENTERn Ihr Arbeits-Programm nicht 
überschrieben wird. Im folgenden Demonstrations-Beispiel be- 
ginnen die DATA-Zeilen mit 1000. Sie erhöhen sich dann in 
10er-Schritten, so wie es bei normaler BASIC-Programmierung 
praktiziert wird. 


18 DIM A$(6):A$=" DATA " 

28 OPEN #1,8,0,”"D:DATAGEN” 

30 ZN=1888: AD=49000 

48 FOR X=1 TO 18 

50 AB=PEEK(CAD): AI=PEEKCAD+1): A2=PEEKCAD+2): A3=PEEKCAD 
+3): A4=PEEK(CAD+4) 

60 PRINT #1;:ZN;A$;AQ;",":Al;”,”:A2:”,":A3:”,":A4A:CHRS$ 
(155) 
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r8 ZN=ZN+18: AD=AD+S 
858 NEXT X 
98 CLUSE #1 


10: A$ wird mit 6 Zeichen DIMensioniert und als " DATA " 
definiert. 


20: Der Datenkanal zur Disketten-Station wird eröffnet. Das 
File heißt DATAGEN. 


30: Die erste DATA-Zeile trägt die Zeilen-Nummer 1000. AD 
dient als Abkürzung für "Adresse". Ab der Speicherstelle 
40000 beginnt in der Grafik-Betriebsart O0 der Bildschirm- 
Speicher; d.h. hier werden alle Zeichen registriert, die sich 
auf dem Bildschirm befinden. Es handelt sich hierbei jedoch 
nicht um ASCII-Werte, sondern um den sog. Internen Code 
(vergl. Tabelle im Anhang). 40000 ist die Adresse für die 
linke obere Ecke des Bildschirms. Sorgen Sie also dafür, daß 
sich irgend etwas auf dem Bildschirm befindet (z.B. das 
Listing dieses Programms), da sich sonst nur Null-Werte in 
den Speicherstellen befinden. 


50: Die Variablen AO bis A4 nehmen die Werte an, die sich 
aus den Speicherstellen 40000 (AD), 40001 (AD+1) usw. PEEKen 
lassen. Beim zweiten Durchlauf der FOR-NEXT-Schleife ist AD 
dann 40005 (s. Zeile 70). 


60: Auf die Diskette wird die Zeilen-Nummer (beim ersten Mal 
1000), A$ ( DATA ) und die gePEEKten Werte aus dem Bild- 
schim-Speicher geschrieben. Genau wie beim normalen Pro- 
grammieren müssen zwischen den einzelnen Werten Kommas 
stehen. Die DATA-Zeile wird mit CHR$(155) = EOL beendet. 


70: Die BASIC-Zeilennummer soll sich bei jedem Durchlauf der 
FOR-NEXT-Schleife um 10 erhöhen. AD erhöht sich um 5; d.h. 
in jeder DATA-Zeile stehen später fünf Werte (AO bis A4). 


Nach RUN hören Sie, wie die Disketten-Station arbeitet. Wenn 
das vertraute READY auf dem Bildschirm erscheint, geben Sie 
folgendes ein: 


NEU (RETURN? 
ENTER ”D:DATAGEN RETURN) 


RUN (RETURN? 


Auf dem Bildschirm erscheinen nun DATA-Zeilen von 1000 bis 
1090 mit den Internen Code-Werten der Zeichen der Speicher- 
stellen 40000 bis 40050. In unserem Beispiel waren das die 
Daten, die Sie nachfolgend sehen. Ihre eigenen können sich 
davon natürlich unterscheiden. 
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1888 DATA 8,9,18,16,0 
1818 DATA 47,48,37,46,0 
1828 DATA 3,17,12,24,12 
1838 DATA 16,12,2,36,26 
1848 DATA 36,33,52,33,39 
1858 DATA 37,46,2,0,8 
1868 DATA 8,0,0,0,08 

1870 DATA 9,0,0,0,0 

1888 DATA 90,0,19,16,8 
1898 DATA 58,46,29,17,16 


Mit dem folgenden Hilfsprogramm können Sie sich ausPRINTen 
lassen, was die DATAs zu bieten haben. Der Zusatz +32 in 
Zeile 30 ist notwendig, um den internen Code in ASCII-Code 
umzuwandeln. Im Kapitel Zeichensatz wurde beschrieben, wie 
der interne Code zum ASCII-Code blockweise verschoben ist. 


18 TRAP 1808 

28 READ D 

3a PRINT CHR$(CD+32); 
38 GOTO 28 

188 END 


5.3.3 Directory ohne DOS 


Nicht selten kommt es vor, daß man ein Programm auf Dis- 
kette abspeichern will und nicht sicher ist, ob ein anderes 
Programm mit gleichem Namen bereits existiert. Ein Blick in 
die Directory bringt zwar Klarheit; aber mit dem Aufruf von 
DOS wird das im Speicher befindliche Programm gelöscht. Von 
MEM.SAV war bereits die Rede und auch davon, daß der La- 
devorgang des DOS und die anschließende Rückbringung des 
zwischengespeicherten Programms relativ lange dauert. 


Es gibt jedoch die Möglichkeit, die Directory ohne Aufrufen 
von DOS auslisten zu lassen. Dazu das folgende Programm: 


38888 CLOSE #1:CLR :DIM XYZ$C17):OPEN #1,6,08,"D:x*.x”: 
FOR X=8® TO 64: INPUT #1;XYZ$:PRINT XYZ$:NEXT X 
38881 CLOSE #1:CLR :DIM ZYX$C17):0OPEN #1,6,8,”"D:x.x”: 
FOR X=8 TO 64: INPUT #1; 2YX$:LPRINT ZYX$:NEXT X 


Falls Sie keinen Drucker benutzen, genügt es, nur die Zeile 
30000 einzugeben. Durch CLR werden alle Variablen-Werte auf 
0 gesetzt. Dies ist notwendig, falls Sie in Ihrem aktuellen 
Programm die gleichen Variablen-Namen benutzen wie in die- 
sem Hilfs-Programm. Anstelle von XYZ$ bzw. ZYX$ können 
Sie auch andere Namen nehmen. Mit der Betriebsart 6 im er- 
sten Parameter des OPEN-Befehls kann die Directory gelesen 
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werden (vergl. Tabelle Seite 138). Durch Verwendung der 
"wild cards" D:*.* werden alle Filenamen der Diskette gele- 
sen. Insgesamt können sich 64 Namen auf einer Diskette be- 
finden. Damit auch die Zahl der freien Sektoren ausgelistet 
wird, macht die FOR-NEXT-Schleife 65 Durchläufe. Dabei 
nimmt XYZ$ bzw. ZYX$ den aktuellen Filenamen an, der auf 
dem Bildschirm oder vom Drucker ausgegeben wird. 


Sie können das Programm z.B. unter dem Namen DIRECTOR 
auf jede Diskette im LIST-Format abspeichern und jederzeit 
zu Ihrem aktuellen Programm hinzuENTERn. Wie Sie wissen, 
wird dadurch Ihr Programm nicht gelöscht (außer, wenn Sie 
die Programmzeilen 30000 und 30001 belegt haben). 


Wenn Sie die Directory auf dem Bildschirm sehen wollen, ge- 
ben Sie ein: GOTO 30000. Zur Ausgabe auf dem Drucker geben 
Sie ein: GOTO 30001. Falls sich weniger als 64 Filenamen auf 
der Diskette befinden, werden Sie nach dem Auslisten eine 
ERROR-Meldung auf dem Bildschirm lesen. Das hat allerdings 
keine weitere Bedeutung. Dem Rechner fehlen lediglich Namen, 
die durch die FOR-NEXT-Schleife aufgerufen werden. 
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5.4 Disketten-Operationen mit GET# und PUT# 


GET# und PUT # unterscheiden sich von PRINT# und INPUT # 
dadurch, daß keine Datenketten, sondern immer nur ein ein- 
zelnes Byte vom angesprochenen Gerät gelesen bzw. an dieses 
abgegeben wird (z.B. ein einzelner ASCII-Wert). Für einige 
Disketten-Operationen ist dies sehr nützlich, wie die folgen- 
den Beispiele zeigen. 


5.4.1 AUTONUMBER-Funktion 


Vom DATA-Zeilen-Generator bis zur automatischen Zeilennum- 
merierung für BASIC-Programme ist es nur ein kleiner Schritt. 
Mit dem folgenden AUTONUMBER-Programm können Sie bequem 
BASIC-Programme schreiben; denn die Zeilen-Nummerierung 
erfolgt automatisch. Sie geben die gewünschte Anfangszeile 
und den Zeilenabstand ein und können das Programm jeder- 
zeit durch Drücken von HELP unterbrechen. 


Im Gegensatz zu den meisten anderen AUTONUMBER-Programmen 
ist es hierbei möglich, nach einer Unterbrechung mit der 
automatischen Zeilen-Nummerierung fortzufahren. Sie müssen 
nur die Zeile angeben, die als nächstes erzeugt werden soll. 
Auf diese Weise können Sie Ihr BASIC-Programm in logische 
Zeilen-Blöcke unterteilen (z.B. erstes Unterprogramm ab Zeile 
1000, zweites Unterprogramm ab 2000 usw.). 


Selbstverständlich dürfen Sie keine Programmzeilen generie- 
ren, die das AUTONUMBER-Programm überschreiben. Um dies 
praktisch zu vermeiden, wurde die Utility an das Ende der 
erlaubten Zeilen-Nummern gelegt (32767 ist die letzte zulässige 
BASIC-Zeile). 


32768 CLR :DIM A$(255),B$(17)3:B$="D:”":? ”"Programm-Nam 
e?": INPUT A$:BS$S(LEN(CB$S)+1)=A$:? ”"Neul8)/Anhang(93?”:1 
NPUT A 

32761 ? "Beginn mit Zeile?”": INPUT ZN:? "Zeilen-Abstan 
d?”": INPUT ZAB:OPEN #1,A,8,B$:POKE 732,8:7? CHR$(125) 
32762 OPEN #2,4,8,”K:” 

32763 ? ZN; :PRINT #1;,Z2N; :ZN=ZN+ZAB 

32764 GET #2,A:? CHR$(A);:PUT #1,A:1IF A<>155 THEN 327 
64 

32765 IF PEEK(73Z)=17 THEN 32767 

32766 IF A=155 THEN 32763 

32767 PRINT #1:32759;” END”:CLOSE #1:CLOSE #2:ENTER B 
$ 
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32760: CLR löscht alle Variablen-Werte. B$ ist zunächst "D:" 
(Anfang eines Disketten-Filenamens). Ihre Eingabe A$ wird 
mit B$ verkettet, so daß ein kompletter Dateiname entsteht 
(z.B. D:TESTPROG.LST). Danach wird gefragt, ob Sie eine 
neue Datei eröffnen oder Programm-Zeilen an eine bestehende 
anhängen wollen (Eingabe 8 oder 9). 


32761: Zeilen-Nummer (ZN) und Zeilen-Abstand (ZAB) werden 
abgefragt. Danach wird der Datenkanal zur Disketten-Station 
eröffnet und der Dateiname (B$) abgelegt. POKE 732,0 löscht 
das Register, mit dem das Betätigen der HELP-Taste abgefragt 
werden kann. CHR$(125) löscht den Bildschirm. 


32762: Der Datenkanal zur Tastatur wird eröffnet (vergl. Ta- 
belle Seite 138). 


32763: Auf dem Bildschirm erscheint die erste Zeilen-Nummer 
des BASIC-Programms, das Sie generieren möchten. Gleichzei- 
tig wird diese Nummer in Form von ASCII-Werten auf Diskette 
abgelegt (besser gesagt: Es werden jeweils 128 Byte in einem 
Puffer gesammelt, bevor diese Werte auf Diskette gelangen). 
Mit ZN=ZN+ZAB erhöhen sich die Zeilen-Nummern um die von 
Ihnen eingegebenen Werte. 


32764: GET#2 registriert Ihre Tastatur-Eingabe in Form von 
ASCII-Werten. Mit CHR$(A) erscheinen diese Werte als normal 
lesbare Zeichen auf dem Bildschirm. Hier schreiben Sie also 
Ihr eigentliches BASIC-Programm. Gleichzeitig wird jeder 
Wert auf Diskette gePUTtet. Korrekturen sind zunächst nicht 
mehr möglich. Fehler machen sich erst beim ENTERn bemerk- 
bar (Zeile 32767), nachdem Sie das Programm unterbrochen 
oder beendet haben. Solange A nicht 155 (EOL) ist, (ASCII- 
Code von RETURN), bleibt der Rechner in dieser Zeile. 


32765: Wenn die HELP-Taste gedrückt wird, geht der Rechner 
zur Zeile 32767. 


32766: Wenn RETURN gedrückt wurde, geht der Rechner zur 
Zeile 32763, wo die nächste Zeilen-Nummer generiert wird. 


32767: Nach dem Drücken der HELP-Taste wird automatisch 
eine Zeilen-Nummer 32759 generiert, die den BASIC-Befehl 
END aufnimmt. Danach werden die Datenkanäle geschlossen 
und das von Ihnen geschriebene BASIC-Programm mit ENTER 
B$ in den Rechner geladen. Sie können das Programm dann 
ganz normal mit RUN starten. Durch die Zeile 32759 gelangt 
der Rechner nie in das AUTONUMBER-Programm. Falls Sie 
Fehler feststellen oder Änderungen vornehmen, können Sie 
anschließend das veränderte Programm mit der Anweisung 
LIST B$ auf der Diskette abspeichern. 
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5.4.2 Textverarbeitung mit AUTONUMBER 


Selbstverständlich ist es möglich, die AUTONUMBER-Funktion 
mit anderen Aufgaben zu kombinieren; z.B. als einfaches 
Text-System. Das folgende Listing ist freilich von "WordStar" 
weit entfernt; aber mit ihm können einzelne Anwendungen, wie 
das Schreiben eines Briefes, erleichtert werden. 


ı DIM T$(255),N$(C17):POKE 732,08:ZN=98:N$="D:”":? "Prog 
ramm-Name ": INPUT T$:N$CLENCN$)I+1)=-T$ 

2 CLOSE #1:0PEN #1,8,8,N$ 

3 ZN=ZN+18: INPUT T$: PRINT #1;2N;" LPRINT ";T$;CHR$(C155) 
4 IF ZN=588 THEN CLOSE #1:ENTER N$ 

S IF PEEK(732)=17 THEN CLOSE #1:ENTER N$ 

6 GOTO 3 

7 DIM A$(C598),B$C58),C$(50),D$(C508) 

8 LPRINT CHR$(Z7);CHR$C66); CHRS$(CS5) 

9 LPRINT CHR$(C27);CHR$(66) ;CHR$(C2) 

18 LPRINT CHR$(C27);,CHRE$C97),CHR$(C3) 

11 LPRINT CHR$(C27);CHR$C77>;,CHR$(CA) 


12 ? "Vorname, Name: "- : INPUT A$ 
13 ? "Zusatz: "INPUT B$ 
14 ? "Strasse, Postfach: ”;:INPUT C$ 
15 ? "Ort: ”"- : INPUT D$ 


16 LPRINT AS$S:LPRINT :LPRINT B$:LPRINT :LPRINT C$:LPRI 
NT :LPRINT D$ 
17 LPRINT CHR$S(C27);CHR$C9I7);CHR$CS) 


1: In diesem Programm werden nicht die einzelnen Zeichen 
in Form von ASCII-Werten geGETtet, sondern jede Textzeile 
als String registriert und mit PRINT an die Diskette abge- 
geben. Sie können also Ihren Text beliebig ändern, solange 
Sie nicht RETURN drücken. T$ (Text-String) und N$ (Name 
des Programms) werden DIMensioniert. Das Register 732 (HELP- 
Taste) wird auf O0 gesetzt. ZN ist die Variable für die Zei- 
len-Nummer. So wie bei AUTONUMBER bereits erklärt, wird 
der von Ihnen eingegebene Programm-Name mit N$ verkettet. 


2: Der Datenkanal zur Disketten-Station wird eröffnet und 
der betreffende Programm-Name registriert. 


3: Nach jedem RETURN erhöht sich die Zeilen-Nummer auto- 
matisch um 10 (die Zeilen-Nummer erscheint nicht auf dem 
Bildschirm; Sie können sich ganz auf den Text konzentrie- 
ren). Mit INPUT T$ können Sie den gewünschten Text einge- 
ben (in diesem Fall ein Brief). Danach wird die aktuelle 
Zeilen-Nummer und der eingegebene Text in Form von ASCII- 
Zeichen auf Diskette abgelegt. Als Zeilenabschluß steht das 
bereits erklärte EOL (ASCII-Code 155). 
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4: Wenn die Zeilen-Nummer 500 erreicht ist, wird das Pro- 
gramm automatisch beendet und der Text geENTERt. Mit der 
Zeile 500 sind insgesamt 50 Textzeilen erzeugt; d.h. ein DIN 
A 4-Blatt dürfte, je nach Zeilenabstand des Druckers, damit 
voll sein. Die Zeile 4 ist also ein Schutzroutine, auf die Sie 
natürlich auch verzichten können. 


5: Wenn Sie HELP (RETURN) drücken, wird das Programm be- 
endet und der Text von der Diskette in den Rechner geladen. 


6: Solange keine der Bedingungen aus den Zeilen 4 und 5 
erfüllt sind, kehrt der Rechner zur Zeile 3 zurück. 


7: In diesen Programmteil gelangt der Rechner nicht auto- 
matisch, sondern nur durch Ihre Anweisung: Sobald das Pro- 
gramm beendet ist (in diesem Beispiel der Brief fertig ge- 
schrieben ist), wird das unter N$ abgespeicherte Programm 
mitsamt den automatisch generierten Zeilen-Nummern in den 
Rechner geladen. Wenn Sie nun LIST (RETURN) eingeben, sehen 
Sie sowohl das Text-Schreibe-Programm als auch den Text 
selbst in Form von LPRINT-Anweisungen (LPRINT = Ausgabe 
an den Drucker). In Zeile 7 werden nun die Eingaben für 
die Adresse des Briefempfängers DIMensioniert. Falls Sie die 
Utility für ganz andere Texte verwenden wollen, können die 
folgenden Zeilen natürlich fortgelassen werden bzw. Ihren 
Bedürfnissen entsprechend verändert werden. 


8 bis 11: Diese Anweisungen an den Drucker bestimmen die 
Schrifttype, Zeilenformat, Randbegrenzung usw. Sie sind in 
diesem Fall auf den "star radix 10'' abgestimmt und können 
von den Angaben für andere Modelle abweichen. 


12 bis 15: Hier wird die Anschrift des Briefempfängers ab- 
gefragt. 


16: Die Anschrift wird gedruckt. 


17: Eine weitere Anweisung für den Drucker, mit der er fünf 
Zeilen vorrückt, bevor der eigentliche Brieftext beginnt. 


Wenn Sie das Programm mit RUN starten, erscheint zunächst 
die Frage: 


Frogramm-Name ? 


Wenn Sie den gewünschten Namen eingegeben haben, öffnet 
der Rechner den Datenkanal zur Disketten-Station. Auf dem 
Bildschirm sehen Sie dann: 


? 


Nun müssen Sie Anführungsstriche eingeben und können dann 
Ihren Text schreiben. Natürlich wäre es auch möglich, die 
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Anführungsstriche ebenso wie die Zeilen-Nummer und LPRINT 
gleich mitgenerieren zu lassen. Das hat jedoch einen Nach- 
teil: Wenn Sie statt Text Steuerfunktionen an den Drucker 
geben wollen (mit CHR$-Anweisungen), so geht dies nur ohne 
Anführungszeichen fehlerfrei. 


Nachdem der gewünschte Text eingegeben und das Programm 
geENTERt ist, tippen Sie GOTO 7 (RETURN). Danach können 
Sie die Anschrift eingeben. Der Brieftext wird automatisch 
gedruckt. 


Es kann vorkommen, daß sich während der Texteingabe Fehler 
einschleichen. Beim ENTERn erscheinen dann ERROR-Zeilen 
auf dem Bildschirm, die Sie einfach korrigieren müssen, be- 
vor Sie GOTO 7 eingeben. 


5.4.3 Disketten 


Ein paar Worte zu den Disketten selbst, denen Sie Ihre wert- 
vollen Programme oder Textfiles anvertrauen. Genau wie bei 
Tonband-Cassetten werden viele Disketten-Sorten von verschie- 
denen Herstellern angeboten. 


Bei der Ausarbeitung dieses Buches wurden z.T. erhebliche 
Qualitäts-Unterschiede von einzelnen Disketten-Marken festge- 
stellt. So war es z.B. notwendig, Disketten dreimal zu for- 
matieren, bevor sie Daten bzw. Programme speicherten. Diese 
unangenehme Erfahrung sollten Sie sich ersparen. Folgende 
Disketten-Marken (in alphabetischer Reihenfolge) brachten 
bei unseren Tests zufriedenstellende Ergebnisse: Dysan, In- 
mac, magna, maxell, memorex, Xidex. 
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5.5 AUTORUN 


Das Disk Operating System bietet neben den bisher gezeigten 
Disketten-Tricks noch einen besonderen Leckerbissen: Wenn 
sich ein Binärfile mit dem Namen AUTORUN.SYS auf der Dis- 
kette befindet, wird der in ihm enthaltete Befehl beim Ein- 
schalten des Computers automatisch durchgeführt werden. 


Auf diese Weise kann z.B. ein bestimmtes Programm gleich 
nach dem Einschalten des ATARI gestartet werden (was auch 
einen gewissen LIST-Schutz bietet). Ebenso ist es möglich, mit 
AUTORUN.SYS zum Programmier-Beginn die Bildschirm-Farbe 
zu wechseln, einen Sound zu erzeugen oder eine Druckersteue- 
rung vorzunehmen. Das folgende Listing dient als Grundlage 
für Ihr eigenes AUTORUN.SYS-Programm: 

188 DATA 255,255,186,6,255,6,169,80,141,98,3,169,1,1341 
‚1,3,169,63,141,2 

118 DATA 3,169,64,141,3,3,169,5,141,6,3,141,5,3,169,0 
‚141,4,3,141 

128 DATA 9,3,1431,18,3,1431,11,3,169,12,141,8,3,32,89,2 
28,16,1,96,162 

138 DATA 11,189,8,5,157,8,3,2082,16,247,32,89,228,48,6 
‚32,6,5,108,12 

148 DATA 8,96,169,193,131,33,3,169,6,141,34,3,96,251, 
243,51,246,287,6,163 

158 DATA 246,51,246,60,246,76,228,243,172,255,6,240,9 
‚185,234,6,206,255,6,168 

168 DATA 1,96,1438,33,3,169,228,141,34,3,169,155,168,1 
‚96 


178 DATA 34,48,49,55,69,75,79,88,58,68,34,32,78,85,82 
‚32,32,32,32,32 

ı80 DATA 20,226,2,227,2,106,6,224,2,225,2,188,6 

198 TRAP 228 

208 OPEN #1,8,8,"D:AUTORUN.SYS” 

218 READ A:PUT #1,A:G0OTO 2108 

228 END 


Die DATA-Zeilen 100 bis 160 sowie die Zeile 180 stellen ein 
Maschinensprache-Programm dar, das Bestandteil jedes AUTO- 
RUN.SYS-Programms ist und nicht verändert wird. Interessant 
ist hingegen die Zeile 170; die hier enthaltenen Werte können 
von Ihnen bestimmt werden. Sie stellen die ASCII-Werte des 
Befehls dar, der automatisch gestartet werden soll. 


In diesem Beispiel handelt es sich um den Befehl RUN '"D:PO 
KE710". Sie können sich zum besseren Verständnis folgendes 
Hilfs-Programm schreiben, mit dem die ASCII-Werte lesbar 
auf dem Bildschirm erscheinen: | 
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18 TRAP 308 

28 READ A:? CHR$CA);,:GOTO 28 

38 END 

178 DATA 34,48,49,55,69,75,79,80,58,68,34,32,78,85,82 
Nach RUN sehen Sie: 


BIFEKOP:D” NUR 


Das Ganze wird für Sie deutlicher, wenn Sie den Text von 
hinten lesen. In dieser Form können Sie jeden beliebigen 
Programm-Namen eingeben (außer AUTORUN.SYS selbst) und 
beim Einschalten des Rechners automatisch starten lassen. 


Die betreffende DATA-Zeile (in diesem Beispiel Zeile 170) muß 
grundsätzlich 20 Daten enthalten. AUTORUN.SYS bewirkt sonst 
eine Fehlfunktion, die meist zum "Absturz" des Computers 
führt. Werte, die nicht vom Programm-Namen beansprucht 
werden, können Sie als "Leerzeichen" eingeben (ASCII-Wert 
32). 


Natürlich muß sich das Programm, das Sie automatisch starten 
wollen, ebenfalls auf der Diskette befinden. In diesem Bei- 
spiel also das Programm POKE710. Es sorgt für einen Farb- 
wechsel des Bildschirms. Hier das Listing: 


18 REM AUTORUN.SYS - DEMO 
28 REM BILDSCHIRM-FARBE WECHSELN 
38 PÜKE 718,193 


Das Programm muß unter dem Namen POKE710 auf Diskette 
geSAVEd werden (geENTERte Programme können nicht mit RUN 
"D:NAME gestartet werden). Es ist jedoch auch möglich, ein 
Programm mit AUTORUN.SYS zu ENTERn; d.h. es wird nur in 
den Rechner geladen, aber nicht gestartet. In diesem Fall 
müssen die Daten in Zeile 170 die ASCII-Werte von ENTER 'D: 
POKE710'" enthalten (ebenfalls rückwärts). Das Programm selbst 
muß mit LIST "D:POKE710'" abgespeichert sein (geSAVEte Pro- 
gramme können nicht geENTERt werden). Nachfolgend finden 
Sie die geänderte DATA-Zeile: 


178 DATA 343,438,439,55,69,75,79,89,58,68,34,32,82,69,84 
‚r8,69,32,32,32 


Falls Sie, wie hier in diesem Beispiel, nur einen einzigen 
Befehl ausführen wollen, können Sie auch auf den Aufruf eines 
Programms verzichten und den Befehl direkt in die DATA-Zeile 
übersetzen (ebenfalls rückwärts). 170 sieht dann folgender- 
maßen aus: 


178 DATA 52,57,49,44,38,39,55,32,69,75,79,80,32,32,32 
‚32,32,32,32,32 
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Seit es Menschen gibt, gibt es Diebe. Stehlen ist das älteste 
Gewerbe der Welt (im Gegensatz zu einer anderen weitverbrei- 
teten Ansicht). - Kein Wunder, daß sich das räuberische 
Treiben auch im Computer-Zeitalter fortsetzt. 


Unter den Sammelbegriffen "Software-Klau'" und "Raubkopierer" 
versuchen arglistige Gentlemen ,„ sich auf billige Weise an 
Programmen zu bereichern, die pfiffige Tüftler in wochenlangen 
Nachtsitzungen mit kalten und warmen Schwitzbädern zusam- 
mengebastelt haben. 


Als Folge davon begann ein elektronisches Wettrüsten um die 
besten Schutzmaßnahmen gegen Software-Klau. Eines wurde 
schnell klar: Einen absoluten Schutz gibt es nicht. Man kann 
jedoch den Programm-Räubern die "Arbeit" reichlich schwer 
machen. Besonders "gemein'' sind Schutzroutinen, die sich 
erst im Laufe der Benutzung eines raubkopierten Programms 
bemerkbar machen; z.B. wenn ein Textverarbeitungs-Programm 
erst abstürzt, nachdem der Text eingegeben wurde oder Kal- 
kulations-Programme, die ziemlich sonderbare Prognosen aus- 
geben. 


Von solch komplizierten Schutzmaßnahmen handelt dieses Ka- 
pitel allerdings nicht. Vielmehr geben wir Ihnen Schutz-Tips 
für den Hausgebrauch (Vollprofis brauchen dieses Buch ohnehin 
nicht). 


Aber falls Sie Programme haben, die Sie z.B. Software-Firmen 
anbieten wollen, ist es ganz angebracht, die Listings vor 
fremden Blicken zu schützen, indem Sie mit AUTORUN starten 
und die Directory auf der Diskette verlegen, damit die Da- 
tenfiles nicht über DOS-Funktion kopiert werden können. Dazu 
können Sie durch Zerstören des Statement-Zeigers oder der 
Variablen-Tabelle einen zusätzlichen Listschutz einbauen und 
die BREAK-Taste außer Funktion setzen. 


Eine Warnung sei gleich vorweg gegeben: Benutzen Sie zum 
Testen der hier gezeigten Schutzroutinen eine Experimentier- 
Diskette und sichern Sie Ihre zu schützenden Programme vorher 
noch auf einer anderen Diskette. Sie können sonst das Pech 
haben, daß Sie den Zugriff auf Ihre eigenen Listings unwie- 
derbringbar verbauen. 
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6.1 Listschutz 


Listschutz ist noch kein Kopierschutz. Trotzdem kann ein 
einfacher Listschutz im Zusammenhang mit den anderen hier 
gezeigten Schutzroutinen ein wirksames Mittel gegen uner- 
wünschten Zugriff auf Ihre Programme sein. 


Es gibt verschiedene Methoden, um einen Listschutz zu er- 
zeugen. Wir zeigen Ihnen nachfolgend zwei Versionen: Das 
Zerstören des aktuelles Statement-Zeigers und das Verändern 
der Variablen-Tabelle. 


In beiden Fällen können Programme zwar gestartet, abernicht 
geLISTet werden. Beim Zerstören des Statement-Zeigers führt 
der LIST-Versuch zum Absturz des Computers; bei Veränderung 
der Variablen-Tabelle erscheint nach der LIST-Anweisung auf 
Wirrwar unentzifferbarer Zeichen. 


6.1.1 Statement-Zeiger zerstören 


So wie die Register 130 und 131 den Zeiger auf die Variab- 
len-Tabelle enthalten (vergl. 1.5 "Die Variablen-Tabelle'"), so 
gibt es auch einen Zeiger auf das aktuell bearbeitete Pro- 
gramm-Statement. Dieser Zeiger ist in den Adressen 138 und 
139 enthalten. 


Wenn Sie in die zweite Adresse hinter dem aktuellen State- 
ment-Zeiger eine O0 einPOKEn und Ihr Programm mit gleicher 
Anweisung abspeichern, erhalten Sie einen wunderbaren List- 
schutz. Das folgende Listing zeigt das Grundprinzip: 


18 REM NAME.EXT 

28 PRINT "Dies ist ein Demo-Programm” 

38 POKE PEEK(138>+PEEK(139)+256+2,80:5AVE "D:NAME.EXT” 
: NEW | 


In Zeile 30 wird durch LO+HI*256 die Adresse für den aktu- 
ellen Statement-Zeiger ermittelt. In die zweite Adresse dahinter 
wird dann eine O0 eingePOKEt. Danach erfolgt die Abspeiche- 
rung des Programms auf Diskette und eine NEW-Anweisung. Sie 
können das Programm nun mit RUN "D:NAME.EXT" starten. Eine 
LOAD-Anweisung oder LIST führen zum Absturz des Rechners. 


Wenn Sie diese Schutzroutine in Ihrem eigenen Programm ein- 
setzen wollen, ist es wichtig, daß Sie dabei eine Zeilen-Nummer 
verwenden. Ohne Zeilen-Nummer bleibt die Anweisung wir- 
kungslos. Schreiben Sie z.B. 30000 POKE PEEK...usw. und 
geben Sie danach GOTO 30000 (RETURN) ein. Sichern Sie Ihr 
Programm jedoch vorher ganz normal auf einer anderen Dis- 
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kette mit SAVE "D:NAME.EXT" oder LIST "D:NAME.EXT", damit 
Ihnen das Listing für Ihre eigene Arbeit erhalten bleibt. 


6.1.2 Variablen-Tabelle verändern 


Im Kapitel 1.5 wurde bereits ausführlich auf die Variablen- 
Tabelle eingegangen. Es ist jedoch nicht nur möglich, durch 
POKE-Anweisungen einzelne Variablen-Namen zu verändern, 
sondern auch einen wirksamen Listschutz zu erzeugen. 


Zu diesem Zweck müssen in die einzelnen Adressen der Tabelle 
irgendwelche Dezimalwerte gePOKEt werden. Im untenstehenden 
Beispiel wurde jedes Register mit O0 belegt. Sie können jedoch 
auch andere Werte von O bis 255 nehmen. 


1 X=PEEKC138) +PEEKC131)%*256: Y=PEEKC13ZI+PEEK(C133) #256 
:FOR 2=X TO Y:PÜKE 2,8:NEXT Z 

18 DIM A$(18),B$(10),C$(C28) 

28 A$="Dies ist ” 

38 B$="ein " 

38 C$="Demo-Programm” 

50 XY=1234 

ca Y2=2345 

78 VARIABLE=XY+YZ 

88 7 AS,B$;,CH 

SB ? VARIABLE 

Die Zeile 1 ist das eigentliche Listschutz-Programm. Die Re- 
gister 130 und 131 enthalten die erste Adresse der Variablen- 
Tabelle; die Register 132 und 133 die letzte Adresse (jeweils 
LO-Byte und HI-Byte). Durch die FOR-NEXT-Schleife werden 
alle Adressen der Variablen-Tabelle mit O belegt. Um die 
Wirkung anschaulich zu demonstrieren, enthält das Beispiel- 
Programm eine Reihe von Phantasie-Variablen. 


Bevor Sie RUN (RETURN) eingeben, müssen Sie das Programm 
abspeichern! Sobald die Variablen-Tabelle durch die Anweisung 
in Zeile 1 zerstört ist, können Sie das Programm nicht mehr 
sichern. 


Es ist natürlich auch möglich, das Zerstören der Variablen- 
Tabelle an den Schluß eines Programms zu legen (z.B. in 
Zeile 30000 wie im vorhergehenden Beispiel-Programm). 


Versuchen Sie nun, nachdem Sie Ihr Programm gesichert ha- 
ben, nach RUN (RETURN) eine LIST-Anweisung zu geben. Sie 
werden eine Menge unsinniger Buchstaben und Grafikzeichen 
auf dem Bildschirm lesen. Das verlorene Listing danach zu 
rekonstruieren, dürfte sehr mühsam sein. 
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6.2 Programmschutz 


Selbst wenn ein Programm nicht mehr gelistet werden kann, so 
ist es doch möglich, mit Hilfe der DOS-Funktion C (Copy) ein 
Dublikat anzufertigen. 


In diesem Abschnitt finden Sie u.a. eine Schutzroutine, mit 
der die Directory der Diskette auf andere Sektoren verlegt 
wird. Dadurch kann das Disk Operating System bei Aufruf 
der Copy-Funktion den angesprochenen Filenamen nicht finden 
und demnach auch nicht kopieren. 


Daneben zeigen wir noch einige andere Möglichkeiten des 
Programmschutzes; z.B. das Sperren der BREAK-Taste oder 
das erneute Booten (Laden des Disketten-Betriebs-Systems), 
sobald die Taste RESET gedrückt wird, die normalerweise 
jedes Programm unterbricht. 


6.2.1 Automatisches NEW 


Normalerweise kann man durch BREAK oder RESET jedes Pro- 
gramm unterbrechen. Man kann diese Tasten jedoch auch mit 
anderen Funktionen belegen oder ganz außer Betrieb setzen. 


Wenn Sie in ein Programm die Anweisung: 
POKE 580,1 


einbauen, kann nach RUN (RETURN) das Programm mit RESET 
zwar unterbrochen werden; sobald jedoch ein LIST (RETURN) 
eingegeben wird, meldet sich nicht mehr als ein freundliches 
READY auf dem Bildschirm. 


Dieser POKE-Befehl sorgt nämlich für ein automatisches NEW. 
Der Normalwert dieses Registers ist 0. 


6.2.2 Automatisches Booten 


Anstelle eines NEW kann das Drücken von RESET auch eine 
andere Funktion auslösen; und zwar das erneute Booten des 
DOS, das normalerweise nur nach Einschalten des Rechners 
(mit angeschlossener Disketten-Station) erfolgt. 


Durch diese Maßnahme erreichen Sie ebenfalls einen gewissen 
Schutz für Ihr Programm. Die notwendige Anweisung dazu lautet: 


POKE 202,1 


Der Normalwert dieses Registers ist 0. 
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6.2.3 BREAK-Taste sperren 


Die bislang unter 6.2 gezeigten kleinen Tips zum Schutz Ihrer 
Programme berücksichtigen nur die RESET-Taste. Da man aber 
auch durch Drücken von BREAK normalerweise jedes Programm 
unterbrechen kann, muß auch für diese Taste eine Manipu- 
latons-Möglichkeit geschaffen werden. 


Dies gelingt durch die Anweisung: 
POKE 16,64:POKE 53774,64 


Die BREAK-Taste wird hierdurch außer Funktion gesetzt. Sie 
können das mit folgendem Experimentier-Programm einmal 
ausprobieren: 


18 POKE 16,64:POKE 53774,64 

28 ? "BREAK-Taste gesperrt” 

38 ? :? "Wenn Sie die Taste <A> druecken,”" 

35 ? "koennen Sie wieder mit BREAK unter- brechen” 
48 IF PEEK(7643)=63 THEN GRAPHICS 8:GOTO 68 

S8# GOTO 48 

68 ? "BREAK-Taste funktioniert wieder" 

re GOTO 7® 


Es ist wichtig, diese POKE-Anweisung nach jedem GRAPHICS- 
Befehl in Ihrem Programm zu wiederholen. Denn mit dem Aufruf 
einer anderen Grafik-Betriebsart werden die beiden Register 
wieder in Normalzustand versetzt (16,192 und 53774,247). 


6.2.4 Directory verlegen 


Im Register 4226 ist festgelegt, auf welchem Sektor der Dis- 
kette die Directory, also das Inhaltsverzeichnis der Diskette 
beginnt. Normalerweise steht in 4226 eine 105. Durch Ändern 
dieses Wertes ändert sich auch der Sektor des Beginns der 
Directory. Damit erreichen Sie einen wirksamen Schutz Ihres 
Programnms. 


Selbst wenn jemand den Namen des Programms kennt, wird 
es ihm nicht möglich sein, es zu laden oder zu kopieren. 
Vor Betriebsbeginn muß nämlich in 4226 der von Ihnen be- 
stimmte Wert abgelegt werden. Das geschieht am besten durch 
eine AUTORUN-Routine (s. 6.3). 


Wenn man ein Programm in einer verlegten Directory abspei- 
chert, wird DUP.SYS außer Funktion gesetzt, da ein zu ko- 
pierendes File für den Rechner nicht auffindbar ist. 


Sie sollten jedoch vor Anwendung dieser Schutzroutine folgende 
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Punkte genau beachten, da Sie sonst in die berühmte "Teu- 
felsküche" kommen (und da kann Sie niemand mehr schützen). 


1. POKE 4226,n (n = O0 bis 255, jedoch nicht 105) 
2. Das zu schützende Programm schreiben 

3. SAVE "D:NAME ..EXT (RETURN) 

4. NEW (RETURN) 

5. POKE 4226,105 


Wenn Sie nun DOS aufrufen und die Directory mit A (RETURN) 
(RETURN) auslisten wollen, werden Sie den Programm-Namen 
nicht finden. Sie bekommen lediglich angezeigt, wieviele Sek- 
toren noch frei sind. 


Gehen Sie nun mit B (RETRUN) zurück in den Rechner und 
tippen Sie POKE 4226,n (n = Ihr Wert). Versuchen Sie dann 
DOS aufzurufen; mehr als ein READY wird Ihr ATARI nicht 
zustande bringen. 


Sie können Ihr Programm nur noch mit RUN "D:NAME.EXT" 
starten oder mit LOAD laden. 
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6.3 Schutzroutine mit AUTORUN 


Alles was bisher gezeigt wurde, sind im Grunde nur Teil- 
Schutzmaßnahmen, die für sich allein noch keinen unerwünsch- 
ten Zugriff auf Ihr Programm verhindern. Nachfolgend finden 
Sie daher eine Routine, bei der zunächst mit AUTORUN.SYS 
das Register 4226 verändert wird; danach wird zum Start 
Ihres Programms die BREAK-Taste gesperrt und RESET auf 
erneutes Booten programmiert. Wenn Sie zusätzlich noch einen 
Listschutz (s. 6.1.1) in Ihr eigentliches Programm einbauen, 
dürften Ihre programmierten Mühen vor allzu neugierigen 
Blicken gut geschützt sein (wie bereits gesagt: Einen absoluten 
Schutz gibt es nicht). 


Die Diskette, auf der Sie die folgende Routine anwenden, sollte 
keine anderen Programme enthalten; Sie können dann einfach 
mit RUN "D:*.*" starten. Falls Sie trotzdem mehrere Programme 
abspeichern wollen, müssen Sie hinter dem Schutzprogramm 
liegen, da mit RUN "D:*.*" das erste Programm auf der Dis- 
kette gestartet wird. 


1080 DATA 255,255,1806,6,255,6,169,80,141,0,3,169,1,141 
‚1,3,169,63,141,2 

118 DATA 3,169,64,141,3,3,169,5,141,6,3,141,5,3,169,08 
‚141,4,3,141 

128 DATA 9,3,141,10,3,141,11,3,169,12,141,8,3,32,89,2 
28,16,1,96,162 

138 DATA 11,189,0,5,157,0,3,202,16,247,32,89,228,48,6 
‚32,6,5,188,12 | 

148 DATA 0,96,169,193,141,33,3,169,6,141,34,3,96,251, 
243,51,246,207,6,163 

150 DATA 246,51,246,60,246,76,228,243,172,255,6,248,9 
‚185,234,6,206,255,6,168® 

168 DATA 1,96,140,33,3,169,228,141,34,3,169,155,160,1 
‚96 

178 DATA 53,53,50,44,54,50,580,52,32,69,75,79,80,32,32 
‚32,32,32,32,32 

188 DATA 20,226,2,227,2,106,6,224,2,225,2,180,6 

198 TRAP 228 

288 OPEN #1,8,8,"D:AUTORUN.SYS” 

218 READ A:PUT #1,A:GO0TO 218 

228 END 


Mit dieser AUTORUN.SYS-Routine wird beim Einschalten des 
Rechners (bei angeschlossener Disketten-Station) der Befehl 
POKE 4226,255 automatisch ausgeführt. 


Der Befehl ist in DATA-Zeile 170 enthalten. Falls Sie einen 
anderen Wert POKEn wollen, beachten Sie bitte die ausführ- 
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liche Beschreibung im Abschnitt 5.5, Seite 150. Geben Sie nun 
RUN (RETURN) ein, damit das AUTORUN.SYS-File auf Diskette 
geschrieben wird. Danach tippen Sie NEW (RETURN) und 
POKE 4226,255 (oder ggf. einen anderen Wert). Schreiben Sie 
dann folgenden Programm: 


18 POKE 588,1:REM Erneutes Booten 
28 POKE 16,64: POKE 53774,64:REM BREAK sperren 
38 RUN "D:NAME.EXT” 


Sofern sich noch kein anderes Programm auf Ihrer Diskette 
befindet, können Sie dieses Programm unter irgendeinem Namen 
abspeichern. Es wird dann später durch RUN "D:*.*" auto- 
matisch gestartet. In Zeile 30 müssen Sie den Namen Ihres 
eigentlichen BASIC-Programms schreiben. 


In dieses Programm können Sie dann wiederum Schutzmaßnahmen 
einbauen; z.B. einen Listschutz, wie unter 6.1.1 gezeigt. 


18 REM NAME.EXT 

28 REM 

38 REN 

48 REM Hier folgt Ihr Programm 

s8 REN 

68 REM 

38888 POKE PEEK(C138)I+PEEKC139)*256+2,8:SAVE "D:NAME.E 
XT”:NEU 


Speichern Sie das Programm, indem Sie GOTO 30000 (RETURN) 
eingeben. Schalten Sie danach den Rechner aus und wieder 
ein. Neben dem Boot-Vorgang wird auch AUTORUN.SYS ausge- 
führt. Wenn Sie RUN "D:*.*" tippen, wird zuerst das kurze 
Schutzprogramm und dann Ihr eigentliches BASIC-Programm 
gestartet. Sie können das Programm nun weder mit BREAK 
noch mit RESET unterbrechen. Selbst wenn Sie das DOS einer 
anderen Diskette laden (was zunächst nicht geht, da das 
Register 4226 verändert ist), ist es nicht möglich, an das 
Programm heranzukommen. Sie können das nach Herzenslust 
einmal versuchen. 


Nun noch einmal die einzelnen Arbeitsschritte, die Sie genau 
befolgen sollten, da Sie sonst möglicherweise den Zugriff auf 
Ihr eigenes Programm verlieren. 


1. Normales Formatieren einer Diskette (falls noch nicht ge- 
geschehen) 

2. WRITE DOS-FILE: H (RETURN) 1 (RETURN) Y (RETURN) 

3. Mit B (RETURN) zurück in den Rechner 

4. AUTORUN.SYS schreiben wie vorhergehende Seite (oder mit 
verändertem Dezimalwert) 
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5. RUN (RETURN) 

6. NEW (RETURN) 

7. Ohne Zeilen-Nummer: POKE 4226,255 (oder einem anderen, 
von Ihnen gewählten Dezimalwert) 

8. Das kurze Schutz-Programm schreiben (s. vorhergehende 
Seite) 

9. SAVE "D:NAME.EXT" 

10. NEW (RETURN) 

11. Das eigentliche BASIC-Programm schreiben, das geschützt 
werden soll 

12. Falls Sie mit Listschutz programmieren: GOTO 30000 (oder 
die Zeilen-Nummer, die Sie dafür bestimmen) 

13. POKE 4226,105 oder Ausschalten des Rechners 

14. Nach erneutem Einschalten: RUN "D:*.*" (RETURN) 


Bitte denken Sie daran, daß das Register bis zum Ausschal- 
ten des Rechners den Dezimalwert enthält, den Sie eingePOKEt 
haben. Bevor Sie mit neuen Programmier-Arbeiten beginnen, 
sollten Sie den Normalwert 105 eingeben oder ausschalten. Sie 
finden sonst möglicherweise Ihre wertvollen Programme auf 
keiner Diskette mehr wieder, weil sie beim Auslisten der 
Directory nicht gefunden werden können. 
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Dezimalwert - ASCII-Zeichen ATASC|I I-Zeichen 
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GRAPHICS 1 und 2 


COLOR-Werte 
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Die Werte n von O0 bis 255 rufen in den Text-Betriebsarten GRAPHICS 1 und 2 das 
Zeichen in der entsprechenden Zeile auf, das seinen Farbwert aus dem Register 
in der jeweiligen Spalte bezieht. Mit den Werten 125 und 155 können keine Zei- 
chen aufgerufen werden. Um die Zeichen der zweiten Spalte zu erreichen, muß der 
Zeiger in Adresse 756 von 224 auf 226 (POKE 756,226) geändert werden. 
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GRAPHICS 1 und 2 


COLOR-Werte (interner Code) 
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TASTATUR-CODE 


ande gedrückte Tasteln) ER gedrückte Taste(n) 


OONSOUERWUONHT © 
DBEIsurum® 


5 
3 
3 
3 
3 
48 
41 


Bob Bob 
Yo BB WM 
"SserD« on 





ao tnunananmadannea.b 
IUDF-OSVaNOUNT BUND 5 0 


In der Adresse 764 wird die zuletzt gedrückte Taste im Tastatur-Code erfaßt. 
Der Tastatur-Code ist eine 6-Bit-Information (Dezimalwerte von 0 bis 63). Wird 
zusammen mit einer Taste SHIFT gedrückt, wird Bit 6 (dezimal 64) gesetzt. Das 
Drücken von CONTROL setzt Bit 7 (dezimal 128). 
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TASTATUR-Code 
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INSERT 
CLEAR 


CONTROL+ATARI 1° CONTROL+TAB 
RETURN SHIFT+TAB 
DELETE CONTROL+2 (BEL) 
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